[VB.NET] utiliser une classe ou non
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:
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 |
