Redimentionner le form

2 pièce(s) jointe(s)

bonjour,

voici image 1 :
Pièce jointe 156513

voici mon code :
Code:

1 2 3 4 5 6 7 8 9 Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click If Me.Button3.Enabled = True Then Button3.Dock = DockStyle.None Me.Size = New System.Drawing.Size(350, 400) Else Button3.Dock = DockStyle.Bottom Me.Size = New System.Drawing.Size(350, 205) End If End Sub
Voici en image 2 :
Pièce jointe 156514

Mon probléme, quand je clique sur le button3 mon form change de taille (voir image 1) et je re-clique sur le button3 pour revenir sa forme originale(voir image 2).
avec mon code fonctionne pour changer la taille mais comment écrire le code pour revenir la form originale(voir image 2).
Pouvez-m'aider à résoudre ce petit probléme?

Merci

Bonjour,

Quand le bouton est enabled=false on ne peut plus cliquer dessus.
Il faut donc se servir de l'état dock du bouton pour déterminer l'action a a entreprendre. (et ne pas mettre le bouton a enabled=true ou false je ne sais ou dans le code)
Code:

1 2 3 4 5 6 7 8 9 Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click If Me.Button3.Dock = DockStyle.Bottom Then Button3.Dock = DockStyle.None Me.Size = New System.Drawing.Size(350, 400) Else Button3.Dock = DockStyle.Bottom Me.Size = New System.Drawing.Size(350, 205) End If End Sub

Bonjour,

Je me permet de te reprendre.

enabled = true -- action autorisé.
enabled = false -- action bloqué.

Du coup ton événement Button3.Click ne sera pas accessible, même si tu fais ta conditionnel sur le .Dock

Je n'apporte cependant aucune solution...

A+

[EDIT] : désolé j'avais omis ton

Citation:

(et ne pas mettre le bouton a enabled=true je ne sais ou dans le code)

Pour information la propriété Dock définie comment est redimensionné le control dans le control parent
alors changer la propriété dock puis changer sa taille je ne pense pas que cela marche du tonnerre

si tu veux redimensionné ou bien même cacher une partie de tes control intéresse toi au SpliContainer et a la propriété PanelCollapsed

Vu qu'il ne change pas la largeur cela fonctionne, mais ce n'est pas très propre.
Dans ce cas if suffit d'utiliser un flag

Code:

1
2
3
4
5
6
7
8
9
    Dim reduit As Boolean = True
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If reduit Then
            Me.Size = New System.Drawing.Size(350, 400)
        Else
            Me.Size = New System.Drawing.Size(350, 205)
        End If
        reduit = Not reduit
    End Sub