On Error Statement 的作用是什么,看MSDN迷迷糊糊的不太懂
解决方案 »
- vb6如何调用excel2007生成的图表
- 菜鸟提问..大侠帮忙啊~~
- xmlhttp就无法取到完整的网页源码吗?webbrowser也不行....有高手研究过没有....求教,再次求教...顶者有分
- 排列组合的问题。(有有20分了)
- 水晶报表的问题,为什么设置好了的CrystalReport,被引用后总是被提示数据库没有打开,输入密码
- vb中打包工具的一些问题??
- 上传文件问题,散分
- 内存溢出(错误 7)请求帮助
- VB中SQL语言对一个表进行添加数据使用另一个表的内容
- 关于鼠标拖动
- 我公司有个vb做的FTP上传下载的控件,结果被360给杀了,还报木马。。。。
- 问个图像处理的问题,如何把一个png文件显示在特定大小的picturebox里面而不失质量呢?
Private Sub Form_Load()
On Error GoTo err1 Dim i%
i = InputBox("input a number:")
MsgBox 1 / i
Exit Sub
err1:
' MsgBox Err.Number & vbCrLf & Err.Description'Err是个内部对象,可以获得错误号和错误描述等等
If Err.Number = 11 Then
MsgBox "输入的数字不能为0"
ElseIf Err.Number = 6 Then
MsgBox "溢出,输入的数字必须为整型"
Else
MsgBox "其它未知错误"
End If
End Sub
'如果要全部忽略错误可以用on error resume next,不过不建议这样做
捕获程序中的错误,按照你的意思来处理。例如:On Error Goto ErrorHandler'......Exit SubErrorHandler:MsgBox "实时错误 " & Err.Number & " (" & Hex(Err.Number) & "h):" & vbNewLine & Err.Description
on error goto 0
on error goto mylabel