Question

vb中怎么显示一张背景图片

Answer 1

图片加载进去，再用PaintPicture画上去，不过图片比例要一样，变形的话就不好看了，当然可以用paintpicture裁减下

Private Sub Form_Load()
Form1.AutoRedraw = True
Picture1.AutoSize = True
Picture1.Picture = LoadPicture(图片路径)
Form1.PaintPicture Picture1.Picture, 0, 0, Form1.ScaleWidth, Form1.ScaleHeight
End Sub

Answer 2

Private Sub Form_Load()
me.picture=loadpicture("图片地址")
End Sub

追问

换到别的机子 图就找不到了。。。

追答

呢就直接在Form的属性里面找到PICTURE属性点旁边的浏览按钮打开呢张图片就行啦

追问

那怎么样图刚刚好大小呢，，可以自动调整吗

追答

要改大小的话建议您使用IMAGE这个控件添加后把STRETCH属性改为True，再在Image1属性里面找到PICTURE属性点旁边的浏览按钮打开呢张图片
再加上这段代码
Private Sub Form_Resize()
Image1.Top = 0
Image1.Left = 0
Image1.Height = Me.ScaleHeight
Image1.Width = Me.ScaleWidth
End Sub
就可以拉