Form sizable Résolu

Question

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

jrivet · Accepted Answer

Salut,
Pourquoi ne pas mettre la propriété suivantes pour Form:
- BorderStyle: 1 - Fixed Sible
- MinButton: True

Est ce que cela repond à ta question

@+: Ju£i?n
Pensez: Réponse acceptée

jmfmarques · Answer

Bonjour,

Je n'ai qu'une question (et elle est essentielle) : dynamiquement (au runtime, donc) ou manuellement (au design time) ?

cs_machto · Answer

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

jrivet · Answer

re,
Question donc pertinente (comme toujours) de [auteurdetail.aspx?ID=615490 jmfmarques] c'est donc au Runtime que tu veux le faire... 

@+: Ju£i?n
Pensez: Réponse acceptée

jmfmarques · Answer

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

jmfmarques · Answer

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 ?

Form sizable

6 réponses

Votre réponse

Discussions similaires