VB中有无类似delphi里try的语句？

Question

就是delphi中try...except...end的语句？

Answer 1

没有，只有On Error GoTo ....

Answer 2

On Error GoTo line On Error Resume NextOn Error GoTo 0
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

Answer 3

vb中有
On Error GoTo line On Error Resume NextOn Error GoTo 0vb.net里有try catch end try

Answer 4

只有在VB.Net 里有try  catch finally