Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: MDI-Form als Hintergrund
Autor: Norbert
Datum: 27.04.02 14:23
Ich habe jetzt einen Tip gefunden, wie man mit API den Close-Button aus der Titelzeile entfernt. Müßte für Minimieren/Abbrechen das gleiche gelten: Option Explicit Private Declare Function GetMenuItemCount Lib "user32" (ByVal _ hMenu As Long) As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd _ As Long, ByVal bRevert As Long) As Long Private Declare Function RemoveMenu 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 Const MF_BYPOSITION = &H400 Const MF_REMOVE = &H1000 Private Sub Command1_Click() Call RemoveX Command1.Enabled = False End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub RemoveX() Dim hMenu&, nPosition& Dim menuItemCount As Long hMenu = GetSystemMenu(Me.hwnd, 0) If hMenu Then nPosition = GetMenuItemCount(hMenu) Call RemoveMenu(hMenu, nPosition - 1, MF_REMOVE Or _ MF_BYPOSITION) Call RemoveMenu(hMenu, nPosition - 2, MF_REMOVE Or _ MF_BYPOSITION) Call DrawMenuBar(Me.hwnd) End If End Sub '---------- Ende Formular "Form1" alias Form1.frm ---------- '-------------- Ende Projektdatei Project1.vbp --------------

MDI-Form als Hintergrund	79	Manuel	26.04.02 22:52
Re: MDI-Form als Hintergrund	25	Norbert	27.04.02 14:06
Re: MDI-Form als Hintergrund	24	Norbert	27.04.02 14:23
Re: MDI-Form als Hintergrund	23	Norbert	27.04.02 14:25

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