✔ Maximieren-Button deaktivieren?

[Christoph1972]

Hallo Zusammen!

Ich möchte in meinem Prog den Max-Button deaktivieren. Ich habe dazu auch einige Anleitungen gefunden, nur komme ich damit nicht so recht weiter. Ich habe z.B. diese Hier , nur ist mir nicht klar wo ich den Code einsetzen muss. Kann mir das vielleicht jemand erklären?

Gruß
Christoph

 

[aquasonic]

Ich habe den Link nur kurz angeschaut. Den Code musst du einfach zum normalen anderen Code reinschreiben. Also zu dem Fenster wo du ihn deaktivieren möchtest.

 

[Christoph1972]

Und genau das funktioniert eben nicht.

 

[aquasonic]

Dann wird es wohl am Code liegen. Aber dafür kenne ich mich mit VB zu wenig aus und kann dir leider nicht weiterhelfen.

 

[Orakel]

Hi,

packe das ganze doch in den Code der MDI-Form. Du musst dann noch ein paar Anpassungen machen (Public in Private ändern).

Also so:

Option Explicit

Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" (ByVal hwnd As Long, _
  ByVal nindex As Long, ByVal dwnewlong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" _
  Alias "GetWindowLongA" (ByVal hwnd As Long, _
  ByVal nindex As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE = (-20)

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 Const MF_BYCOMMAND = &H0&
Private Const SC_CLOSE = &HF060
Private Const SC_MAXIMIZE = &HF030
Private Const SC_MINIMIZE = &HF020
Private Const SC_RESTORE = &HF120

Private Sub MDIForm_Load()
    Dim ret As Long
    Dim hMen As Long

    'Maximieren unterbinden
    hMen = GetSystemMenu(Me.hwnd, False)
    RemoveMenu hMen, SC_MAXIMIZE, MF_BYCOMMAND
    ret = GetWindowLong(Me.hwnd, GWL_STYLE)
    SetWindowLong Me.hwnd, GWL_STYLE, ret And Not &H10000
End Sub

Gruß
Das Orakel

 

[Shakie]

Du musst den Code vom Abschnitt "'Maximieren unterbinden" beispielsweise in Form_Load reinschreiben und noch die API-Deklarationen übernehmen.

 

[Christoph1972]

Cool Danke das war es!