Avoir les bouton "réduire" et "agrandire" dans un form de VBA

Question

Bonjour,
Tout est dit dans le sujet...
j'aimerai donc savoir comment on fait pour que lorsque l'on clic dessus cela agrandisse ou réduise la fenetre (la form)
rappel : je suis sous VBA

Merci

florantanplan · Answer

Ba tu peux pas...

jyver · Answer

Et bien d'ai un début de code qui permet de les avoir mais il faut passer par un API (mais je ne maitrise pas les API)
Je crois qu'il s'agit de "SetwidowSize" dans user32 ...
Je voudrai donc pouvoir mieux m'en servir de ces fameux boutons....
Merci d'avance

tbbuim1 · Answer

? Je ne comprends pas ton probl&#232;me...

Tu veux cr&#233;er des boutons qui aient la m&#234;me fonction que les boutons de la fen&#234;tre?

Si ce n'est que &#231;a, alors

Pour minimiser tu fais: Docmd.Minimize

Pour agrandir: Docmd.maximize
TBBUIM

CTAC · Answer

Bonjour.
Ceci devrait convenir.

Dans un module :


Public Declare Function FindWindow& _
    Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName$, ByVal lpWindowName$)


Public Declare Function GetWindowLong& _
    Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd&, ByVal nIndex&)


Public Declare Function SetWindowLong& _
    Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)


Private Declare Function EnableWindow& _
    Lib "user32" _
    (ByVal hwnd&, ByVal fEnable&)


Private Declare Function CallWindowProc& _
    Lib "user32" Alias "CallWindowProcA" _
    (ByVal lpPrevWndFunc&, ByVal hwnd&, ByVal Msg&, ByVal wParam&, ByVal lParam&)


Public Const GWL_WNDPROC& -4&, WM_SYSCOMMAND& &H112&


Public BaseUFProc&, BaseXLProc&, AncState&


Function UFProc&(ByVal hwnd&, ByVal uMsg&, ByVal wParam&, ByVal lParam&)
    Dim HwndXL&
    Const SC_MINIMIZE& = &HF020&
    If uMsg = WM_SYSCOMMAND Then
            If wParam = (SC_MINIMIZE And &HFFF0&) Then
                HwndXL = FindWindow("XLMAIN", Application.Caption)
                EnableWindow HwndXL, True
                UserForm1.Hide
                AncState = Application.WindowState
                Application.WindowState = xlMinimized
                BaseXLProc = SetWindowLong(HwndXL, GWL_WNDPROC, AddressOf XLProc)
                UFProc = 1&
                Exit Function
            End If
    End If
    UFProc = CallWindowProc(BaseUFProc, hwnd, uMsg, wParam, lParam)
End Function


Function XLProc&(ByVal hwnd&, ByVal uMsg&, ByVal wParam&, ByVal lParam&)
    Const SC_MAXIMIZE& = &HF030&, _        SC_RESTORE& &HF120&, SC_CLOSE& &HF060&
    If uMsg = WM_SYSCOMMAND Then            If wParam (SC_MAXIMIZE And &HFFF0&) Or wParam (SC_RESTORE _
                And &HFFF0&) Or wParam = SC_CLOSE Then
                SetWindowLong hwnd, GWL_WNDPROC, BaseXLProc
                Application.WindowState = AncState
                UserForm1.Show
                XLProc = 1&
                Exit Function
            End If
    End If
    XLProc = CallWindowProc(BaseXLProc, hwnd, uMsg, wParam, lParam)
End Function


Dans le module UserForm1 :


Private HandleUF&


Private Sub UserForm_Initialize()
    Const WS_MAXIMIZEBOX& = &H10000, _        WS_MINIMIZEBOX& &H20000, GWL_STYLE& -16&
    HandleUF = FindWindow(vbNullString, Me.Caption)
    SetWindowLong HandleUF, GWL_STYLE, _
        GetWindowLong(HandleUF, GWL_STYLE) Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX
    BaseUFProc = SetWindowLong(HandleUF, GWL_WNDPROC, AddressOf UFProc)
End Sub


Private Sub UserForm_Terminate()
    SetWindowLong HandleUF, GWL_WNDPROC, BaseUFProc
End Sub


ctac

jyver · Answer

Je crois que ctac à donné une réponse qui correspond à mes attentes : il me reste plus qu'à le tester...
Merci
Jyver

tbbuim1 · Answer

lol alors je n'ai vraiment pas compris t'as question,

Serait-il possible que tu r&#233;expliques plus en d&#233;tail ce que tu veux
faire avec ce code, afin que cela serve &#224; tout le monde et pas que &#224;
toi. Merci de ta compr&#233;hension.
TBBUIM

tbbuim1 · Answer

Parce que tel que c'est &#233;crit dans le sujet...

Pour moi, en VBA
Tu fais un bouton et dans l'&#233;v&#232;nement clic du &#233;cris: Docmd.minimize

Et Maximize pour le bouton agrandir.

En VB, ya pas de DoCmd, donc peut &#234;tre es-tu oblig&#233; d'&#233;crire ce que CTAC a mis, mais pas en VBA sous ACCESS.

Donc soit tu n'as pas test&#233; ce que j'ai &#233;cris, soit je n'ai pas compris
ton sujet, bien qu'il semble &#233;vident pour toi, auquel cas, je te serais
gr&#233; de bien vouloir expliquer en d&#233;tail la finalit&#233; de ta question car
cela m'int&#233;resse. Merci 
TBBUIM

jyver · Answer

Bonjour,

Dans un userform en VBA, il n'y a que le bouton de la croix "X" pour fermer la fenetre (fermer le userform). Je voudrais avoir les boutons agrandire (le carré) et réduire (le tiret) pour agrandire ou réduire mon userform.

j'espère que tu as compris le sens de ma question ;-) .
Jyver

jyver · Answer

Précision : le Docmd.minimize ne marche pas chez moi. Je suis en VBA sous excel (mais il me semble que c'est le meme VBA sous Access que sous Excel)
Jyver

tbbuim1 · Answer

Ok, c'est l'&#233;l&#233;ment essentiel qu'il manquait &#224; ta question.

Tu es sous EXCEL!

Ce que j'ai &#233;cris marche sous ACCESS...
TBBUIM

jyver · Answer

Aurais-tu des infos complémentaires pour afficher ces fameux boutons?
Merci d'avance
Jyver

Avoir les bouton "réduire" et "agrandire" dans un form de VBA

11 réponses

Discussions similaires