送分100分：如何用SYSINFO控件，控制背景图片充满整个窗体。
如何用SYSINFO控件，控制背景图片充满整个窗体。开发环境VB6.

[解决办法]
用不着SYSINFO控件,下面是控制背景图片充满整个窗体的代码:

VB code

Private Sub Form_Load()Form1.AutoRedraw = TrueEnd SubPrivate Sub Form_Resize()Me.PaintPicture ImageList1.ListImages(1).Picture, 0, 0, Me.Width, Me.HeightEnd 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, ScaleHeightEnd Sub
[解决办法]
VB code
Private Sub Form_Load()    Image1.Stretch = True    Image1.Move 0, 0, Me.Width, Me.HeightEnd SubPrivate Sub SysInfo1_DisplayChanged()   Image1.Move 0, 0, Me.Width, Me.HeightEnd Sub
[解决办法]
探讨

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


[解决办法]
探讨

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