Tipp 0277 Programm mit Abfrage beenden
Autor/Einsender:
Datum:
  Detlev Schubert
12.10.2002
Entwicklungsumgebung:   VB 6
Dieser Tipp zeigt, wie man eine Abfrage vor dem Beenden eines Programms einbauen kann. Um dies zu realisieren, schauen wir uns das QueryUnload-Ereignis einer Form an, das automatisch bei der Anweisung Unload Me als nächstes Ereignis aufgerufen wird.
Mit dem Parameter Cancel kann gesteuert werden, ob der Unload-Befehl ausgeführt und die Form geschlossen wird. Platziert man nun eine MsgBox und setzt Cancel auf True, kann die Prozedur verlassen werden und der Unload-Befehl nicht ausgeführt. Andernfalls wird die Form geschlossen, und ggf. die Anwendung beendet.
 
Option Explicit

Private Sub cmdBeenden_Click()
  Unload Me
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, _
      UnloadMode As Integer)
  If MsgBox("Möchten Sie das Programm wirklich beenden?", _
         vbYesNo + vbQuestion) = vbNo Then
    Cancel = True
    Exit Sub
  Else
    End
  End If
End Sub
 
Weitere Links zum Thema
Beenden einer Form verhindern
Programm mit Datei-Endung verknüpfen
Programm-Abbruch erzwingen

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,2 kB) Downloads bisher: [ 792 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 23. August 2011