如何使图片自适应picture控件的大小？

[lovercat]

如果麻烦另外再加10分

[wbdx]

怎么控件啊

paintpicture 可以实现

image 控件 有 stretch 属性啊

[bamboosee]

我用image,府源代码
Private Sub Form_Resize()
Image1.Move 0, 0, Me.Width, Me.Height
Label1.Left = Me.Height / 2
End Sub


Sub setpicture(x As Picture)
Image1.Stretch = False
Set Image1.Picture = x
Image1.Stretch = True
Image1.Move 0, 0, Me.Width, Me.Height
End Sub

[lovercat]

噢，用image就ok了，笨笨了。