如何设置VB窗体的背景？而且图片充满整个窗口，求源程序

Question

如题所述

Answer 1

窗体背景图不可以设置，考虑用image控件来做整体背景。
Private Sub Form_Resize()
Image1.Stretch = True
Image1.Picture = LoadPicture("G:\bj-drive\My Documents\My Pictures\5004224_980x1200_0.jpg")
Image1.Move 0, 0, Me.Width, Me.Height

End Sub

Answer 2

Private Sub Form_Load()
Me.Picture = LoadPicture("c:\fish.jpg")
Me.AutoRedraw = True
End Sub

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