Option Explicit
Private Sub Command1_Click()
On Error GoTo errorhandler跳转到errorhandler行标签
Image1.Height = Image1.Height - 100图像框的高度和宽度以100缇单位缩小
Image1.Width = Image1.Width - 100
errorhandler:
行标签
End Sub
Private Sub Command2_Click()
On Error GoTo errorhandler
Image1.Height = Image1.Height + 100图像框的高度和宽度以100缇单位放大
Image1.Width = Image1.Width + 100
errorhandler:
End Sub
Private Sub Command3_Click()
End
End Sub

本文介绍了一个使用VBA编写的简单示例,包括如何通过On Error GoTo语句进行错误处理,并展示了如何通过按钮点击事件改变图像框的大小。此示例适用于初学者了解基本的错误处理机制及图像框属性的修改。
1770

被折叠的 条评论
为什么被折叠?



