ex8.用height、width属性改变大小

ex8.用height、width属性改变大小

本例演示通过height属性设置控件的高度，通过width属性设置控件的宽度。

Option Explicit

Private Sub Command1_Click()
Image1.Width = Image1.Width / 0.8
Image1.Height = Image1.Height / 0.8
End Sub

Private Sub Command2_Click()
Text1.Width = Text1.Width + 100
End Sub

Private Sub Command3_Click()
Image1.Width = Image1.Width * 0.8
Image1.Height = Image1.Height * 0.8
End Sub

Private Sub Command4_Click()
Text1.Width = Text1.Width - 100
End Sub

Private Sub Form_Load()
Set Image1.Picture = LoadPicture(App.Path & "\rains.gif")
End Sub

? 该例演示过程中，改变 Image控件的尺寸时，内部加载的picture对象尺寸并未改变，试了下发现不能用其 height/width属性来改变大小，那怎么才能改变 picture对象的尺寸？

原来image控件可以通过设置属性stretch = True来使image加载的图片自动适应控件的尺寸。
￣□￣｜｜

---