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
完整的源代码请下载查看。
1