如何获得VB返回的错误信息！！

[liqinger184]

谁告诉我如何获得VB返回的错误信息！！
最好举个例子咯！！哈哈

[tianjy]

任意找一本vb的书里面都有介绍

[liqinger184]

给个例子就加分

[liangfang]

Private Sub Form_Click()
Dim Number, MyString
Number = 2 ' 设置变量初值。
' Branch to Sub2.
On Number GoSub Sub1, Sub2 ' 在 On...GoSub 退出後，程序会回到此处来继续完成。
On Number GoTo Line1, Line2 ' 完成 Line2 标记之区段。
' 在 On...GoTo 退出之后，程序不会回到此处来。
Exit Sub
Sub1:
MyString = "In Sub1": Return
Sub2:
MyString = "In Sub2": Return
Line1:
MyString = "In Line1"
Line2:
MyString = "In Line2"

End Sub

[lndlwwh830]

捕获错误号

[liangfang]

On Error 语句示例
本示例先使用 On Error GoTo 语句在一个过程中指定错误处理的代码所在。本示例中，试图删除一已经打开的文件从而生成的错误码为 55。这个错误将由示例中的错误处理程序码来处理，处理完後，控制会回到发生错误的语句处。On Error GoTo 0 语句关闭错误陷阱。然后 On Error Resume Next 语句用来改变错误陷阱，以便发觉下一个语句产生的错误的范围。请注意示例中使用 Err.Clear 在错误处理完後，清除 Err 对象的属性。

Sub OnErrorStatementDemo()
On Error GoTo ErrorHandler ' 打开错误处理程序。
Open "TESTFILE" For Output As #1 ' 打开输出文件。
Kill "TESTFILE" ' 试图删除已打开的文件。
On Error Goto 0 ' 关闭错误陷阱。
On Error Resume Next ' 改变错误陷阱。
ObjectRef = GetObject("MyWord.Basic") ' 试图启动不存在
' 的对象
'检查可能发生的 Automation 错误。
If Err.Number = 440 Or Err.Number = 432 Then
' 告诉用户出了什么事。然后清除 Err 对象。
Msg = "There was an error attempting to open the Automation object!"
MsgBox Msg, , "Deferred Error Test"
Err.Clear ' 清除 Err 对象字段。
End If
Exit Sub ' 退出程序，以避免进入错误处理程序。
ErrorHandler: ' 错误处理程序。
Select Case Err.Number ' 检查错误代号。
Case 55 ' 发生“文件已打开”的错误。
Close #1 ' 关闭已打开的文件。
Case Else
' 处理其他错误状态 . . .
End Select
Resume ' 将控制返回到产生错误的语句。
End Sub

MSDN 中好多,自己回去慢慢看 呵呵

[liqinger184]

还是不怎么理解了！我晕咯！MSDN哪里有下载了？？？？

[qiqunet]

MSDN在线支持:

http://msdn.microsoft.com/

[qiqunet]

MSDN在线支持(中文版):
http://www.microsoft.com/china/msdn/default.mspx