除錯
On Error Goto Errhandle
.....
Errhandle:
If Not(Erl=0) Then
Print "<test Error>" + Str(Err) + ": " + Error$ + " on line " + Cstr(Erl)
End If
On Error Goto Errhandle
.....
Errhandle:
If Not(Erl=0) Then
Print "<test Error>" + Str(Err) + ": " + Error$ + " on line " + Cstr(Erl)
End If