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子程序或函数未定义,请问各位大虾为什么啊?
呵呵,弱弱的问一句哈:英文状态下的│我怎么找不到啊??请问在哪里能够找到啊??谢谢了!
vb中errhandler是什么意思
答案:3 悬赏:70
解决时间 2021-04-21 18:02
- 提问者网友:野性
- 2021-04-21 04:37
最佳答案
- 二级知识专家网友:专属的偏见
- 2021-04-21 04:45
errhandler
Exit Sub
改成
errhandler:
Exit Sub
带一个冒号 是容错处理来的
这个当然啦 你这句
CommonDialog1.Filter = "all files(*.*)│*.*│bmp文件(*.bmp)│*.bmp│jpg文件(*.jpg)│*.jpg"
里面的│全部都是中文的标点符号
你将它们全部重新改成英文状态下的|吧
就是Shift+反斜杠那个键
Exit Sub
改成
errhandler:
Exit Sub
带一个冒号 是容错处理来的
这个当然啦 你这句
CommonDialog1.Filter = "all files(*.*)│*.*│bmp文件(*.bmp)│*.bmp│jpg文件(*.jpg)│*.jpg"
里面的│全部都是中文的标点符号
你将它们全部重新改成英文状态下的|吧
就是Shift+反斜杠那个键
全部回答
- 1楼网友:晨与橙与城
- 2021-04-21 06:15
是
。。。
On Error GoTo errhandler
。。。
errhandler:
if err then msgbox err.Description
- 2楼网友:冷态度
- 2021-04-21 05:47
一般是这么来的:
on error goto errhandler
k=5/0
exit sub '未发生错误,则退出sub
errhandle:
msgbox “有可能除数是0” '若发生错误,则弹出提示,再退出sub
end sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯