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

来源：百度知道 编辑：UC知道 时间：2024/06/22 13:32:35
vb6.0里如何实现让图片的大小随picturebox的大小而变化？
.net的控件picturebox中有一个属性可以直接改,可是6.0里没有，该怎么实现？谢谢

这个容易：

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

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

.autosize