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
Partager