Question

求助：vb图片随图片框大小变化

Option Explicit

Private Sub CmdendEX_Click()
Picture1.Top = 0
Picture1.Width = 10800
Picture1.Left = 0
Picture1.Height = 9000
Picture1.Scale (-900, 1000)-(900, -500)
Picture1.PaintPicture Picture1.picture, -900, 1000, Picture1.Width, Picture1.Height
End Sub

Private Sub CmdEX_Click()
Picture1.Top = 1200
Picture1.Width = 7200
Picture1.Left = 1530
Picture1.Height = 6000
Picture1.Scale (-900, 1000)-(900, -500)
Picture1.PaintPicture Picture1.picture, -900, 1000, Picture1.Width, Picture1.Height
End Sub

Private Sub Form_Load()
Picture1.PaintPicture Picture1, 0, 0, Picture1.Width, Picture1.Height
Picture1.Scale (-900, 1000)-(900, -500)
End Sub
我的autosize属性设置为false,autoredraw设置为true，我是想让图片随着图片框大小变化，并不是图片框随图片变化。

Answer 1

Picture1.AutoSize = True
AutoSize 属性，图片自动适应图片框大小

你可引用image控件

Image1.Stretch = True
Image1.Picture = Picture1.Picture

Answer 2

设计时载入图片则：
dim p as stdpicture
Form_Load里面加：
set p=Picture1.picture
Picture1_Resize里写：
Picture1.PaintPicture Picture1, Picture1.scaleleft, Picture1.scaletop, Picture1.scaleWidth, Picture1.scaleHeight