The amazing error trap
-
Warning: Visual Basic 6 code ahead, do not read if of a nervous disposition.
Just a little snippet of code I stumbled upon this week - everything as was, apart from the object name stuff (changed to protect the innocent and misguided) and the 'snips'......
[code]'Snip
Dim inErr
On Error Goto LocalErrorTrap
inErr = False
If Not inErr Then Set objObjectName = CreateObject("ObjectName.ChangedHere")
If inErr = False then
'
' Snip - loads of code here
'
EndIf
'
' Snip loads more code here (some of which happens to rely on the code in the if above)
'
Exit Sub
LocalErrorTrap:
inErr=True
Resume Next
Resume
Return 'For completeness!
End Sub[/code]
-
Visual Basic always makes my brain hurt; I am lucky to have survived reading this...thing.
-
You know how simple things sometimes elude comprehension by the human brain?
This is one of those things.
-
@dhromed said:
You know how simple things sometimes elude comprehension by the human brain?
Vroomfondel: Now that's what I call thinking. How come we can't think like Majikthise?
Majikthise: Maybe our minds are... too highly trained.
-
I understood that code and why it's a WTF (beyond being in VB).
Does that mean that I'm a closet VB coder or something?
-
The real WTF is that the programmer... oh, wait! wrong forum. Sorry.
-dZ.
-
@Zlodo said:
I understood that code and why it's a WTF (beyond being in VB).
Does that mean that I'm a closet VB coder or something?
Yes.
Shall I get the hose?