Rubrik: Oberfläche · Fenster | VB-Versionen: VB4, VB5, VB6 | 15.12.00 |
Deaktivierung des Schließen-Symbols Mit der nachfolgenden Prozedur wird das Schließen-Symbol in der Titelleiste eines Fenster deaktiviert, d.h. das Fenster kann nicht mehr über das Sch... | ||
Autor: Dieter Otter | Bewertung: | Views: 27.221 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit der nachfolgenden Prozedur wird das Schließen-Symbol in der Titelleiste eines Fenster deaktiviert, d.h. das Fenster kann nicht mehr über das Schließen-Symbol geschlossen werden.
' 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 des Schließen-Symbols Public Sub DisableCloseButton(hWnd As Long) Dim hMenu As Long hMenu = GetSystemMenu(hWnd, 0&) If hMenu Then Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND) DrawMenuBar hWnd End If End Sub
Anmerkungen:
Die Prozedur DisableCloseButton deaktiviert das Schließensymbol in der Titelleiste des Fensters und entfernt gleichzeitig den "Schließen"-Befehl im Systemmenü.
Beispiel:
Private Sub Form_Load() DisableCloseButton Me.hWnd End Sub