送分100分：怎么用SYSINFO控件，控制背景图片充满整个窗体

Private Sub Form_Load()
Form1.AutoRedraw = True
End Sub
Private Sub Form_Resize()
Me.PaintPicture ImageList1.ListImages(1).Picture, 0, 0, Me.Width, Me.Height
End Sub
'背景图片放在ImageList1中

------解决方案--------------------

把背景图片放在Image控件中

VB code

Private Sub Form_Resize()                  '使得控件大小随着窗体大小的改变而改变
    Image1.Width = Me.Width - 80
    Image1.Height = Me.Height - 360        '大小自己根据需要减去相应的值
End Sub

------解决方案--------------------
这个代码不用考虑系统设置，它总能把背景图片 Image1 充满整个窗体。

VB code

' 固定大小的窗体，可以写在 Form_Load() 中。
' Private Sub Form_Load()
Private Sub Form_Resize()   '适合所有窗体
    Image1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

------解决方案--------------------

VB code

Private Sub Form_Load()
    Image1.Stretch = True
    Image1.Move 0, 0, Me.Width, Me.Height
End Sub

Private Sub SysInfo1_DisplayChanged()
   Image1.Move 0, 0, Me.Width, Me.Height
End Sub

------解决方案--------------------

探讨

我用的是PICTRUE控件，可以吗。

------解决方案--------------------

探讨

我用的是PICTRUE控件，可以吗。