vb中on error语句的问题

来源：百度知道编辑：UC知道时间：2024/05/09 01:44:26

我的目的是使用on error语句,使通用对话框控件不出现错误的提示,我的程序代码如下:
Private Sub Command1_Click()
CommonDialog1.Action = 1 '显示打开对话框
CommonDialog1.CancelError = True '出现错误的提示
On Error GoTo 1 '如果出错
1:
n = MsgBox(" 您点击了取消按扭")
End Sub
上面的程序运行的结果却是.....
第一次点击命令按钮,可以出现打开对话框,点击取消以后,可以弹出消息框,可是第二次再点击该按钮的时候,还是出现了错误的提示,请问我上面的程序到底是哪里出了问题,请给出正确的程序代码,谢谢!

Private Sub Command1_Click()
On Error Resume Next '如果出错
CommonDialog1.Action = 1 '显示打开对话框
CommonDialog1.CancelError = True '出现错误的提示
If Err.Number <> 0 Then
n = MsgBox(" 您点击了取消按扭")
Err.Clear
End If
End Sub

vb中on error语句的问题 VB 的 on error语句 VB中执行VB语句的问题 on error的问题 vb中的on Error goto Errhandle 是什么意思 vb中SQL的select语句解决不了,问下高人 vb中dim语句的dim是什么意思? vb中return语句的用法？ vb 中 SQL的select 语句问题关于VB中select语句的问题