Question

vb6.0里如何实现让图片的大小随picturebox的大小而变化？

vb6.0里如何实现让图片的大小随picturebox的大小而变化？
.net的控件picturebox中有一个属性可以直接改,可是6.0里没有，该怎么实现？谢谢

Answer 1

这个容易：

Private Sub Picture1_Paint()
Dim mPic As StdPicture
Set mPic = LoadPicture("c:\我的图片.jpg")
Picture1.PaintPicture mPic, 0, 0, Picture1.Width, Picture1.Height
End Sub

或者先在Picture1.Picture加载图片:

Private Sub Picture1_Paint()
Picture1.PaintPicture Picture1, 0, 0, Picture1.Width, Picture1.Height
End Sub

注：以上方法只能在运行时有效，设计时无法实现。

Answer 2

将AutoSize属性改为True
Picturebox.AutoSize
=
True

Answer 3

.autosize