Wie man zur Laufzeit das Schließen-Symbol einer Form deaktiviert, zeigt nachfolgender Tipp: Was aber, wenn man das Schließen-Symbol wieder "reaktivieren" möchte? Wie das geht, erfahren Sie heute. ' zunächst die benötigten Deklarationen Private Declare Function GetSystemMenu Lib "user32" ( _ ByVal hwnd As Long, _ ByVal bRevert As Long) As Long Private Declare Function DeleteMenu Lib "user32" ( _ ByVal hMenu As Long, _ ByVal nPosition As Long, _ ByVal wFlags As Long) As Long Private Declare Function DrawMenuBar Lib "user32" ( _ ByVal hwnd As Long) As Long Private Const SC_CLOSE = &HF060 Private Const MF_BYCOMMAND = &H0 ' Entfernen / Anzeigen des Schließen-Symbols Public Sub ShowCloseButton(ByVal hWnd As Long, _ ByVal bShowButton As Boolean) Dim hMenu As Long If Not bShowButton Then ' Schließen-Symbol deaktivieren hMenu = GetSystemMenu(hWnd, 0&) If hMenu Then Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND) End If Else ' Schließen-Symbol wieder aktivieren GetSystemMenu hWnd, True End If DrawMenuBar hWnd End Sub Aufrufbeispiel: ' Schließen-Symbol deaktivieren ShowCloseButton Me.hWnd, False ' Aktion... ... ' Schließen-Symbol wieder aktivieren ShowCloseButton Me.hWnd, True Dieser Tipp wurde bereits 21.329 mal aufgerufen.
Anzeige
![]() ![]() ![]() (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevPopUp 2.0 ![]() Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Tipp des Monats ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. TOP Entwickler-Paket ![]() TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |