Das Objekt Err
Funktionsweise + Fehleranalyse
Das Objekt Err
Die Eigenschaften Err.Number und Err.Description enthalten
Informationen zum zuletzt aufgetretenen Laufzeitfehler
Err ist ein besonderes Visual Basic-Objekt, dem detaillierte
Fehlerbehandlungsinformationen zugewiesen werden, wenn ein Laufzeitfehler
auftritt. Die nützlichsten Err-Eigenschaften zur Identifikation von
Laufzeitfehlern sind die Eigenschaften Err.Number und Err.Descryption.
Err.Number enthält die Nummer des letzten Laufzeitfehlers.
Err.Descryption enthält eine kurze Fehlermeldung zur jeweiligen
Nummer.
Fehlernummer
Standardfehlermeldung
5
Prozeduraufruf oder Argument ist ungültig
6
überlauf
7
Nicht genügend Arbeitsspeicher
9
Index außerhalb des definierten Bereichs
11
Division durch Null
13
Typunverträglichkeit
48
Fehler beim laden der DLL
51
Interner Fehler
52
Dateiname oder Zahl ist ungültig
53
Datei nicht gefunden
55
Die Datei ist bereits geöffnet
57
Geräte-E/A-Fehler
58
Die Datei ist bereits vorhanden
61
Der Datenträger ist voll
62
Eingabe hinter Dateiende
67
Zu viele Dateien
68
Das gerät ist nicht verfügbar
70
Berichtigung verweigert
71
Das Laufwerk ist nicht bereit
74
Das umbenennen in ein anderes Laufwerk
ist nicht möglich
75
Pfad-/Dateizugriffsfehler
76
Der Pfad wurde nicht gefunden
91
Objektvariable oder With-Blockvariable
wurde nicht festgelegt
321
Ungültiges Dateiformat
322
Die erorderliche Temporäre Datei kann
nicht erstell werden
380
Der Eigenschaftswert ist ungültig
381
Ungültiger Arrayindex der Eigenschaft
422
Die Eigenschaft wurde nicht gefunden
423
Die Eigenschaft oder Methode wurde nicht
gefunden
424
Objekt erforderlich
429
ActiveX-Komponente kann nicht erstellt
werden
430
Klasse unterstützt keine Automatisierung
oder unterstützt die erwartete Schnittstelle nicht
438
Objekt unterstützt diese Eigenschaft oder
Methode nicht
440
Automatisierungsfehler
460
Das Format der Zwischenablage ist
ungültig
461
Methode oder Dateielement wurde nicht
gefunden
462
Der Remoteservercomputer existiert nicht
oder ist nicht verfügbar
463
Die Klasse ist auf dem lokalen Computer
nicht registriert
481
Ungültiges Bild
482
Druckerfehler
Beispiel:
Private
Sub Button1_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
Button1.Click
Try
Programmaufruf...
Catch
When Err.Number = 53
Wenn Datei nicht gefunden
MsgBox("überprüfen Sie ob die Datei existiert",
MsgBoxStyle.Information) Bei Fehler
Messagebox als Information
Catch
When Err.Number = 70
Wenn nicht berechtigt
MsgBox("Sie haben keine Berechtigung für diesen
Vorgang", MsgBoxStyle.Critical) Bei
Fehler Messagebox als Kritischer Fehler
End
Try
End
Sub