IBM Lotus Symphony
|
Omogoči podprogram za obravnavanje napake, ko pride do napake, ali pa nadaljuje izvajanje programa.
On {Error GoTo Labelname | GoTo 0 | Resume Next}
GoTo Labelname: Če pride do napake, omogoči podprogram za obravnavo napake, ki se začne pri vrstici "Labelname".
Resume Next: Če pride do napake, se izvajanje programa nadaljuje pri stavku, ki sledi stavku, v katerem se je zgodila napaka.
GoTo 0: Onemogoči obravnavanje napak za trenutno proceduro.
Stavek On Error GoTo se uporablja za odzive na napake, ki se zgodijo v makru. Ta stavek mora biti vstavljen na začetku procedure (v lokalnem podprogramu za obravnavanje napak) ali pa na začetku modula.
Sub ExampleReset
On Error Goto ErrorHandler
Dim iNumber As Integer
Dim iCount As Integer
Dim sLine As String
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "This is a line of text"
Close #iNumber
iNumber = Freefile
Open aFile For Input As iNumber
For iCount = 1 to 5
Line Input #iNumber, sLine
If sLine <>"" then
rem
end if
Next iCount
Close #iNumber
Exit Sub
ErrorHandler:
Reset
MsgBox "All files will be closed",0,"Error"
End Sub