| 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 | |
 | |
|
|
|
|
| . |
| |
zurück