Laufwerksauswahl, Fehlerbehandlung mit Error-Objekt

Laufwerksauswahl und Fehlerbehandlung mit Error-Objekt. DriveListBox, DirListBox, FileListBox, Err.Description, Err.Number
Deklarationsteil nur für den ExitWindowsEx-Befehl.
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_SHUTDOWN = 1
Private Const EWX_FORCE = 4
Private Sub Drive1_Change()
On Error GoTo Meldung Wenn Laufwerk nicht ansprechbar, gehe zur Fehlermeldung.
Dir1.Path = Drive1.Drive Wählt ein Laufwerk in der DriveListBox aus.
Exit Sub Wenn Laufwerk ansprechbar, übergehe Fehlermeldung.
Meldung: Einfache Fehlerbehandlung:
MsgBox "Legen Sie einen Datenträger ein!" Siehe auch VB-Hilfe: Index "Auffangbare Fehler".
End Sub Verbesserte Fehlerbehandlung siehe weiter unten!
Private Sub Dir1_Change()
File1.Path = Dir1.Path Wählt einen Pfad in der Dir(ection)ListBox aus.
End Sub
Private Sub Command1_Click() Bei Klick auf den Button wird der Rechner runtergefahren.
Dim x As Variant
x = ExitWindowsEx(EWX_SHUTDOWN, EWX_FORCE)
End Sub
Oben: DriveListBox.
Links: DirListBox.
Rechts: FileListBox.
Button: Rechner runterfahren.
Private Sub Drive1_Change() Verbesserte Fehlerbehandlung
On Error GoTo Meldung Wenn Laufwerk nicht ansprechbar, gehe zur Fehlermeldung.
Dir1.Path = Drive1.Drive Wählt ein Laufwerk in der DriveListBox aus.
Exit Sub Wenn Laufwerk ansprechbar, übergehe Fehlermeldung.
Meldung:
"Select Case MsgBox("Laufwerk nicht bereit", 37, "Problem") Möglichkeit, individuellen Text auszugeben.
Select Case MsgBox(Err.Description, 37, _ Die Description-Eigenschaft des Error-Objekts gibt einen
"Fehler " & Err.Number) Meldungstext in der aktuellen Landessprache aus, die
Case 2 Error-Nummer steht in der Kopfzeile der MsgBox.
Resume Next Programm-Exit.
Case 4
Resume Befehl wiederholen.
End Select
End Sub
.

Mehr Tipps: NASA-Messdaten

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt