Fehlerabfang bei VB
lima-city → Forum → Programmiersprachen → Basic
angegebene zeile
anweisung
datei
erachten
error
exit
fehler
fehlerbehandlung
ger
hilfe
korpus
laufzeitfehler
not
number
programmsteuerung
resume
sen
zeile
zeilennummer
zugreifen
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Hallo,
Was f?r eine Fehlerabfangung willst du denn machen? Wie wars mit GoTo und OnError kannst du dir ja in der Hilfe genauer anschauen!
Hier ein Auszug aus der Hilfe:
Anweisung Beschreibung
On Error GoTo Zeile
Aktiviert die in Zeile beginnende Fehlerbehandlungsroutine. Zeile ist eine beliebige Zeilenmarke oder Zeilennummer. Tritt danach ein Laufzeitfehler auf, so verzweigt die Programmsteuerung zu Zeile und aktiviert so die Fehlerbehandlungsroutine. Die angegebene Zeile mu? sich in derselben Prozedur wie die On Error-Anweisung befinden. Andernfalls tritt ein Fehler zur Kompilierungszeit auf.
On Error Resume Next
Legt fest, da? das Programm die Ausf?hrung beim Auftreten eines Laufzeitfehlers mit der Anweisung fortsetzt, die auf die fehlerverursachende Anweisung folgt. Die Ausf?hrung wird also nicht unterbrochen. Sie sollten diese Form anstelle von On Error GoTo verwenden, wenn Sie auf Objekte zugreifen.
On Error GoTo 0
Deaktiviert alle aktivierten Fehlerbehandlungsroutinen in der aktuellen Prozedur.
Ich hoffe das hilft dir etwas... -
also nochma als beispiel:
Private Sub Command1_Click()
On Error GoTo fehler 'Abfangen und zu zeilenmarke "fehler" springen
Dim a 'Variablendeklaration
a = 6 'Wertzuweisung
a = a / 0 ' rechnung a/0 -> geteilt durch 0 nicht m?glich!!!
MsgBox a 'ausgabe von a (Bei erfolgter Rechnung)
Exit Sub 'Beenden der Funktion, sonst wird "fehler" IMMER ausgef?hrt
fehler: 'Zeilensprungmarke "fehler"
MsgBox "Hat nich funktioniert" 'Ausgabe des Fehlers
End Sub -
ja, genau so ists richtig.
die fehlerbehandlung in vb is recht komisch, aber meines erachtens noch ein kleines bissel besser, als ein fehlerobjekt zu erzeugen (java, .net).
hier ist ein beispielcode, zur fehlerbehandlung beim arbeiten mit dateien.
Public Function ReadDBv11() As Boolean
FrFile = FreeFile ' "dateizeiger"
On Error GoTo ErrorHandler ' einschalten de fehlerbehandlung
Open Path For Input As #FrFile ' kann nen fehler ausl?sen
Do While Not EOF(FrFile) ' korpus zum lesen einer date
Line Input #FrFile, sLineRead
If sLineRead <> "" Then
End If
Loop
Close #FrFile ' und wieder schlieesen
' und hier s?mtliche fehler, die ich im zusammenhang mit dateien gefunden habe
Exit Function
ErrorHandler:
Select Case Err.Number
Case Is = 53 'datei nicht gefunden
Case Is = 55 'datei bereits ge?ffnet
Case Is = 57 'fehler beim lesen von/schreiben auf ger?t
Case Is = 61 'datentr?ger voll
Case Is = 68 'ger?t nicht verf?gbar
Case Is = 70 'zugriff verweigert
Case Is = 75 'fehler beim zugriff auf pfad/datei
Case Is = 76 'pfad nicht gefunden
Case Else
End Select
Close #FrFile
If Err.Number <> 0 Then
MsgBox "Der Fehler Nr. " & Err.Number & " (" & Err.Description & ") ist aufgetreten."
End If
End Function -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage