VB-Homepage Tipp 029

Abfangen des Programmendes bei Auswahl "x" Button

Fragestellung : "Wie kann ich abfangen, daß ein Programm über den "x" Button bei Win95/98 und WinNT beendet wird?" Hier die Lösung: Der aktiven Form geben Sie im Abschnitt QueryUnload folgende Anweisungen auf den Weg. Variable = MsgBox("Möchten Sie wirklich Beenden ?", vbYesNo, "Programmende") If Variable = vbNo Then     Cancel = 1 Else     Cancel = 0 End If Drückt der User nun "Nein" in der Messagebox, wird das Programm nicht beendet. Will man also ein Beenden über diesen Button generell ausschließen, reicht der folgende Eintrag im Query_Unload oder Unload der Form. Cancel = 1

Tipp-Download

Quelle : Tipp von Alexander Dilthey