vb中errhandler是什么意思

来源:百度知道 编辑:UC知道 时间:2024/07/01 01:54:41
Private Sub Command1_Click()
Dim retval
CommonDialog1.CancelError = True
On Error GoTo errhandler
CommonDialog1.Filter = "all files(*.*)│*.*│bmp文件(*.bmp)│*.bmp│jpg文件(*.jpg)│*.jpg"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
retval = Shell(CommonDialog1.FileName, vbNormalFocus)

errhandler
Exit Sub

End Sub
这个程序在运行的时候,提示:errhandler子程序或函数未定义,请问各位大虾为什么啊?
呵呵,弱弱的问一句哈:英文状态下的│我怎么找不到啊??请问在哪里能够找到啊??谢谢了!

errhandler
Exit Sub
改成
errhandler:
Exit Sub
带一个冒号 是容错处理来的

这个当然啦 你这句
CommonDialog1.Filter = "all files(*.*)│*.*│bmp文件(*.bmp)│*.bmp│jpg文件(*.jpg)│*.jpg"

里面的│全部都是中文的标点符号
你将它们全部重新改成英文状态下的|吧

就是Shift+反斜杠那个键


。。。

On Error GoTo errhandler
。。。

errhandler:
if err then msgbox err.Description

errhandler 后面加个冒号