Question

VB如何实现图片充满窗口，并且随着窗口大小自动变化

Answer 1

Private Sub Form_Initialize()
Image1.Top = 0
Image1.Left = 0
Image1.Height = Me.Height
Image1.Width = Me.Width
Image1.Stretch = True

End Sub

Private Sub Form_Resize()
Image1.Top = 0
Image1.Left = 0
Image1.Height = Me.Height
Image1.Width = Me.Width

End Sub
张志晨

Answer 2

来个简单的不用控件的办法：

Private Sub Form_Load()
AutoRedraw = True
Picture =loadpicture("c:\123.jpg")'要换的图片
End Sub

Private Sub Form_Resize()
Cls
PaintPicture Picture, 0, 0, Width, Height
End Sub