Folgendes Problem:
Ich hab' eine LS-Bibliothek mit ca. 120 Funktionen und einigen Klassen.
sämtliche Funktionen beinhalten eine Fehlerbehandlung nach folgendem Schema:
Function Testfunktion(i as integer) as integer On Error GoTo errHandle i = i / 0 Exit FunctionerrHandle: Messagebox("Fehler in Testfunktion in Zeile " + cStr(Erl) + ": " + Error$)End Funtction
Das Funktioniert soweit alles hervorragend. Ich kann im Logfile sehen bei welcher Funktion in welcher Zeile der Funktion was für ein Fehler aufgetreten ist.
Wenn ich nun eine Klasse definiere verhält sich Erl leider vollkommen merkwürdig
Beispiel:
Class Zaehler
Sub New(t as String)
On Error Goto errHandle
...
Exit Sub
errHandle:
Messagebox("Fehler in Sub New der Klasse Zaehler in Zeile " + cStr(Erl) + ": " + Error$)
End Sub
Property Get test as String
On Error Goto errHandle
dim i as integer
test = ""
i = 12/0
Exit Property
errHandle:
Messagebox("Fehler in Property test der Klasse Zaehler in Zeile " + cStr(Erl) + ": " + Error$)
End Property
End Class
Alles anzeigen
Wenn ich nun die Klasse verwende wird bei einem Fehler von Erl nicht die Zeilenzahl innerhalb der Sub oder der Property ausgegeben, in der der Fehler passiert ist sondern eine Zahl die nahe (ca. +/- 50 Zeilen) der Zeilenr. innerhalb der Bibliothek ist.
Ist das ein Fehler vom Server oder verwende ich bei Klassen die Funktion "Erl" einfach nur falsch?
Im Voraus schon mal vielen Dank für Eure Hilfe.
Gruß Thorsten