VB 动态改变图像框Image的Stretch属性.rar

VB 动态改变图像框Image的Stretch属性，用户通过自定义的两款代码，可随意改变image的长度和宽度大小，不过本源码将此两种操作封装在按钮事件中，用户只需单击按钮，即可放大或缩小image框，动态改变了Image的Stretch属性，可以按如下方法定义按钮事件：
　　Private Sub Form_Load()
　　Image1.Picture = LoadPicture(App.Path "\e055.ico") '加载图片
　　End Sub
　　Private Sub Command1_Click()
　　Image1.Stretch = True '缩放图形来适应控件的大小
　　End Sub
　　Private Sub Command2_Click()
　　Image1.Stretch = False '缩放控件来适应图形的大小
　　End Sub
　　Private Sub Command3_Click()
　　Image1.Width = Image1.Width * 2 '放大图像框
　　Image1.Height = Image1.Height * 2
　　End Sub
　　Private Sub Command4_Click()
　　Image1.Width = Image1.Width / 2 '缩小图像框
　　Image1.Height = Image1.Height / 2
　　End Sub
　　完整的源代码请下载查看。