![]() |
|
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
|
|
|
|
|
|
|
| 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: [ 888 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 