You can use different approaches to error handling in the VB program:
•Check the value of the Err.Number variable after execution of the VB operator, which contains the call to the COM server object.
•Use On Error GoTo VB operator.
These approaches are represented in the examples below. The following operator causes an error in VB program as "S13" value of the DEFine property is incorrect.
app.SCPI.PARameter.DEFine = "S13" |
In the first example, the value of the Err.Number variable is checked after execution of the VB operator, which contains the call to the COM server object. The On Error Resume Next directive instructs VB not to interrupt the program execution when the error is detected, but to pass control to the next operator in natural order.
Dim app Public Sub HandleError1() Set app = CreateObject("RVNA.Application") On Error Resume Next app.SCPI.PARameter.DEFine = "S13" If Err.Number <> 0 Then Msg = "Error # " & Str(Err.Number) & " was generated by " &_ Err.Source & Chr(13) & Err.Description Msg Box Msg,,"Error" End If ... End Sub |
In the second example, the On Error GoTo Err Handler directive instructs VB to interrupt the program execution when the error is detected and to pass control to Err Handler label.
Dim app Public Sub HandleError2() Set app = CreateObject("RVNA.Application") On Error GoTo Err Handler app.SCPI.PARameter.DEFine = "S13" ... Exit Sub Err Handler: Msg = "Error # " & Str(Err.Number) & " was generated by " &_ Err.Source & Chr(13) & Err.Description Msg Box Msg,,"Error" End Sub |