VB中form窗体的背景图片如何调整属性使背景图片的大小和窗体大小一样

Question

如题所述

Answer 1

单纯显示图形用Image就可以~而且用Image也正好可解决你的问题
设定Image的Stretch=true
在加入以下代码
Private Sub Form_Resize()
Image1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

或者使用以下的方式来做也可以

Private Sub Form_Paint()
Me.PaintPicture Me.Picture, 0, 0, ScaleWidth, ScaleHeight
End Sub

2种都很简单 不过推荐你使用第一种方法。第二种拉大还可以 缩小有时过快 它反应不过来。

Answer 2

改图片不是更简单么，嘿嘿

加个picture能实现滴 （不是背景）
把PICTURE1的AUTOREDRAW的属性改为TRUE

Private Sub Command1_Click()
Dim p As Single, pic As New StdPicture
Set pic = LoadPicture(图片路径)
If pic.Height / Picture1.ScaleHeight < pic.Width / Picture1.ScaleWidth Then
p = Picture1.ScaleWidth / pic.Width
Picture1.PaintPicture pic, 0, (Picture1.ScaleHeight - pic.Height * p) * 0.5, Picture1.ScaleWidth, p * pic.Height
Else
p = Picture1.ScaleHeight / pic.Height
Picture1.PaintPicture pic, (Picture1.ScaleWidth - pic.Width * p) * 0.5, 0, p * pic.Width, Picture1.ScaleHeight
End If
End Sub本回答被网友采纳

Answer 3

Private Sub Form_Click()
Picture1.AutoSize = True
Picture1.Picture = LoadPicture("F:\我的图片\xianjian.jpg")
Me.PaintPicture Picture1.Picture, 0, 0, Me.Width, Me.Height, 0, 0, Picture1.Width, Picture1.Height
End Sub