Discussion :

[maxxou]

Bonjour,

Je me creuse la cervelle pour trouver une solution mais je tourne un peu en rond. Dans un form j'ajoute plusieurs panels les uns en dessous des autres.Sur chacun de ces panels figure des checkbox et des boutons. Je voudrais si l utilisateur clique sur certains boutons que les panels changent de hauteur et se remettent bien en desous des uns des autres et non que cela laisse un trou si un panel est reduit ou qu il chevauche un autre si il devient plus grand.

J'ai crée une classe pour ces fameux panels mais je ne sais pas si je fais une propriété y a cette classe qui definirait son ordonnée sur le form si quand je lui attribue une nouvelle valeur le panel va directement se positionner au bon endroit ou si je dois detruire le panel actuel et en creer un autre avec les bonnes valeurs.

J'espere que j ai étais clair

Merci

Pour la forme l'ébauche de code actuel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
    Public Class Panel_porte
        Public Sub New()
            MyBase.new()
        End Sub
        Public Sub New(ByVal Num_porte, ByVal y)
            Dim ordonnee As Integer = y
 
            Dim Panel_porte = New Panel
 
            Dim Label_porte() As Label
            Label_porte = New Label(20) {}
 
            Dim CheckBox_porte() As CheckBox
            CheckBox_porte = New CheckBox(20) {}
 
            Panel_porte.BackColor = System.Drawing.Color.Gray
            Panel_porte.Location = New System.Drawing.Point(13, ordonnee)
            Panel_porte.Name = "Panel_porte"
            Panel_porte.Size = New System.Drawing.Size(700, 100)
 
            Label_porte(1) = New Label()
            Label_porte(1).Location = New System.Drawing.Point(5, 20)
            Label_porte(1).Text = "Porte N" & Num_porte
            Panel_porte.Controls.Add(Label_porte(1))
 
            CheckBox_porte(0) = New CheckBox()
            CheckBox_porte(0).Text = "Bois peint"
            CheckBox_porte(0).Location = New System.Drawing.Point(5, 40)
            Panel_porte.Controls.Add(CheckBox_porte(0))
 
            Form1.Panel.Controls.Add(Panel_porte)
        End Sub
    End Class

[Kelpan]

Bonjour,

La propriété Dock ne peut-elle pas t'aider ?

[maxxou]

Ah oui merci avec le FlowLayoutPanel et le TableLayoutPanel il y a des pistes interessantes aussi

Merci !