[VB6] Eliminare pulsante Massimizza di una finestra MDIForm

[Alexinfa]

Salve a tutti,
come si sa in una MDI Form, in alto a destra ci sono i 3 pulsanti classici per qualsiasi finestra windows ovvero il pulsante X per chiudere la finestra, il pulsante per massimizzarla e il pulsante per minimizzarla.

Io vorrei eliminare il pulsante per massimizzare della finestra.

Come posso fare?

[tossam]

la risposta è supersemplice: maxbutton = false

[Alexinfa]

L'avrei fatto ma tra le propieta' del MDIForm non c'e' maxbotton quindi non posso mettere false

[oregon]

Per esempio ...

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 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 iditem As Long, _
    ByVal wFlags As Long) As Long

Private Const GWL_STYLE As Long = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const MF_REMOVE = &H1000&
Private Const SC_MAXIMIZE = &HF030&

Sub MDIForm_Load()
    Dim lWnd As Long
    lWnd = GetWindowLong(hwnd, GWL_STYLE)
    lWnd = lWnd And Not (WS_MAXIMIZEBOX)
    lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)

    Dim hMenu As Long
    hMenu = GetSystemMenu(hwnd, 0)
    DeleteMenu hMenu, SC_MAXIMIZE, MF_REMOVE
End Sub

[Alexinfa]

Mitico oregon sei fantastico!

Magari un giorno mi insegnavi come fai a far ste cose.

Grazie infinite

[Alexinfa]

E' incredibile oregon!

Funziona ma se creo l'eseguibile non funziona piu'!

ossia e' come che fosse il prg di prima.

Perche'?

[Alexinfa]

E' ancora piu' strano perche' se faccio il pacchetto d'installazione funziona.

Volevo evitare di creare il pacchetto d'installazione di questo prg, prima cosa perche' nonostate uso vb6 da + di 2 anni non sono ancora capace di creare pacchetti decenti e seconda cosa finora con 4 click di mouse facevo l'eseguibile e li passavo ai miei amici.

Se puoi oregon trovarmi una soluzione...

Grazie

[oregon]

Ho creato l'eseguibile e funziona.

L'esempio che ti ho mostrato prevede che il progetto si avvii dalla Sub MDIForm_Load()

Se il tuo progetto usa la funzione Main() allora devi inserire il codice in tale funzione.

[Alexinfa]

Ho provato a mettere:

Sub MDIForm_Load()

ma non cambia nulla, nell'eseguibile non funziona.

[oregon]

Ma nelle opzioni, il progetto da dove parte?