Question

VB程序里image图片怎样让它随窗体的大小变化而变化？

要想使VB中image图片随窗体的大小变化而变化。

Answer 1

Private Sub Form_Resize() '窗体变动触发事件

Image1.Width = Form1.Width

Image1.Height = Form1.Width

Image1.Stretch = True

End Sub

Answer 2

楼上说清楚了第一点，但是第二点没说清楚，我来讲。首先要把image的stretch属性设为true，也就是自动调整大小的意思。然后这样写：
Dim OldHgt As Integer, OldWid As Integer, oldh As Integer, oldw As Integer

Private Sub Form_Load()
image1.stretch = true
OldHgt = Me.Height '得到开始的窗体高
OldWid = Me.Width '得到开始的窗体宽
oldh = Image1.Height '得到开始的image高
oldw = Image1.Width '得到开始的image宽
End Sub

Private Sub Form_resize() '窗体大小变化
Image1.Height = (Me.Height / OldHgt) * oldh '用新的窗体高除以旧的高，得到一个比值，再用这个比值乘以旧的image高，就得到新的image高
Image1.Width = (Me.Width / OldWid) * oldw '同上
End Sub

Answer 3

image有个属性叫stretch将该属性设置为真
然后你把image的大小设为跟随窗体变化即可

Answer 4

你用TIMER和PICTUREBOX控件来做设置一下它们的属性就好