Oft wird gefragt: Wie kann ich verhindern, dass eine Form über dieSchließen-Schaltfläche kommentarlos beendet wird? Man könnte jetzt auf die Idee kommen, diesen Schließen-Button einfach zu deaktivieren, so wie es in diesen Tippsbeschrieben ist: Deaktivierung des Schließen-Symbols und Deaktivierung des Schließen-Symbols II. Aber das möchte man nun auch nicht. Im Grunde genommen will man nur verhindern, dass der Anwender vergisst seineDaten zu speichern bevor er das Programm beendet, oder man möchte erreichen, dass eine bestimmte Form mit Informationen eine gewisse Zeit geöffnet bleibt, oder, oder, oder. Also wie verhindert man es nun? Hierzu muss man wissen, dass beim Klick aufdas Schließen-Symbol der QueryUnload-Ereignis ausgelöst wird. DiesesQueryUnload-Ereignis hat die folgenden Parameter:
Wenn das Cancel-Argument auf True gesetzt wird, kann dasbetroffene Formular nicht geschlossen werden. Über das UnloadMode-Argumentkann ermittelt werden, was das QueryUnload-Ereignis ausgelöst hat. Nachfolgendder Vollständigkeit halber eine Tabelle der möglichen Werte für das UnloadMode-Argument:
Nun könnte man ja sagen - o.k., ich setz Cancel auf True und fertig. Dassieht dann ungefähr so aus: Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormControlMenu Then Cancel = True End If End Sub Das Problem ist jetzt nur, dass man die Form überhaupt nicht mehr über dieSchließen-Fläche geschlossen bekommt. Es sollte ja nur so sein, dass eineWarnung angezeigt wird. Versuchen Sie es mal so: Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Select Case UnloadMode Case vbFormControlMenu ' oder Case 0 ' falls Schaltfläche "Nein" gewählt wurde, Form nicht schließen If vbNo = MsgBox("Haben Sie alles gesichert?" & vbCrLf _ & "Wollen Sie jetzt wirklich beenden?", _ vbQuestion + vbYesNo, "Sind Sie sicher ???") Then Cancel = True End If End Select End Sub Diese Seite wurde bereits 25.022 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 sevZIP40 Pro DLL Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. |
|||||||||||||||||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |