Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Minimieren deaktivieren..
Autor: mitsch
Datum: 25.11.04 21:44
hallo silas, versuche es mal damit Private Declare Function DrawMenuBar Lib "user32" _ (ByVal hWnd As Long) As Long Public 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 Const SC_CLOSE = &HF060 Private Const SC_MINIMIZE As Long = &HF020& Private Const SC_MAXIMIZE As Long = &HF030& Private Const MF_BYCOMMAND = &H0 Public Sub DisableCloseButton(ByVal hWnd As Long) Dim hMenu As Long hMenu = GetSystemMenu(hWnd, 0&) If hMenu Then Call DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND) DrawMenuBar hWnd End If End Sub Für den Mimimized-Button = SC_MINIMIZE Für den Maximized-Button = SC_MAXIMIZE Für den Close-Button=SC_CLOSE einsetzen... Gruß

Minimieren deaktivieren..	838	silas_t	25.11.04 20:55
Re: Minimieren deaktivieren..	401	SailSteam	25.11.04 21:37
Re: Minimieren deaktivieren..	382	mitsch	25.11.04 21:44

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen