Bonjour,
simplement, pour avoir les bouton min et max je dois être en "sizable". Comment limiter cette fonction au boutons en haut à droite et interdire le redimensionnement de la form par les bords?
Je n'ai besoin que du minbutton et de la croix mais pas la possibilité de redimensionner la feuille.
Merci d'avance

M@chto

Merci à tous les deux. Je souhaite seulement pouvoir activer le bouton de réduction et le désactiver à volonté selon mes options choisies. La commande "Form1.Minbutton = True" ou "= False" n'existe pas pour faire changer cette propriété. Y a-t-il une équivalence?
Merci
M@chto

re,
Question donc pertinente (comme toujours) de jmfmarques c'est donc au Runtime que tu veux le faire...

@+: Ju£i€n
Pensez: Réponse acceptée

Faut jouer avec le menu de la Form, c'est tout !
Je reviens...

A +

tiens.
.. et fais joujou avec ce que tu veux

Une Form et deux boutons de commande Command1 pour inhiber, Commande2 pour rétablir

Option Explicit
Private Const SC_MINIMIZE = &HF020&
Private Const SC_CLOSE = &HF060&
Private Const SC_MAXIMIZE = &HF030&
Private Const SC_RESTORE = &HF120&
Private Const SC_SIZE = &HF000&
Private Const SC_MOVE = &HF010&

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 nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

'Pour inhiber
Private Sub Command1_Click()
    Dim sysmen As Long
    sysmen = GetSystemMenu(Me.hwnd, 0)
' Garde de ces options celle(s) que tu veux pour tes inhibitions ...
    DeleteMenu sysmen, SC_MINIMIZE, &H0& ' si tu veux inhiber la réduction
    DeleteMenu sysmen, SC_MAXIMIZE, &H0& ' si tu veux inhiber le "Mawimizing"
    DeleteMenu sysmen, SC_MOVE, &H0& ' Si tu veux inhiber le déplacement
    DeleteMenu sysmen, SC_CLOSE, &H0& ' si tu veux inhiber la fermeture
    DeleteMenu sysmen, SC_SIZE, &H0& ' si tu veux inhiber les "Resizing"
End Sub

' pour tout remettre en place
Private Sub command2_Click()
    GetSystemMenu Me.hwnd, True
    DrawMenuBar Me.hwnd
End Sub

Cà te va ?