窗体背景图不可以设置，考虑用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
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024