Discussion :

[filtep]

Bonsoir,
j'ai besoin de créer des fiches de commentaire successives dans des dossiers clients, chaque fiche de commentaire s'affiche sous forme d'un Panel, appelons le "Panel1"
ce panel contient plusieurs contrôles (un label pour la date et deux textbox pour les commentaires)
pour créer un nouveau commentaire il faut afficher un nouveau "Panel1" à la suite des autres.
Je comptais donc écrire:

Code :

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

1
2
dim pan as new Panel1
etc...

mais ça ne marche pas car je pense qu'il faut que "panel1" soit une classe...
je cherche donc à créer une classe correspondant à mon objet graphique "Panel1" avec ses contrôles, mais là je ne sais pas trop comment faire...

Merci pour votre aide précieuse.
Philippe

[ACIVE_CS]

Bonjour,

C'est bien, avec ton code tu créés un nouvel Panel,
mais il faut ajouter le contrôle à ta form en suite, exemple:

Code :

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

1
2
3
4
5
6
7
8
 
        'on ajoute un Panel à ta form
        Dim Panel1 As New Panel
        Me.Controls.Add(Panel1)
        'on ajoute un label à ton Panel1:
        Dim Label1 As New Label
        Panel1.Controls.Add(Label1)
        'etc...

[_Ez3kiel]

Bonsoir,
j'ai besoin de créer des fiches de commentaire successives dans des dossiers clients, chaque fiche de commentaire s'affiche sous forme d'un Panel, appelons le "Panel1"
ce panel contient plusieurs contrôles (un label pour la date et deux textbox pour les commentaires)
pour créer un nouveau commentaire il faut afficher un nouveau "Panel1" à la suite des autres.
Je comptais donc écrire:

Code :

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

1
2
dim pan as new Panel1
etc...

mais ça ne marche pas car je pense qu'il faut que "panel1" soit une classe...
je cherche donc à créer une classe correspondant à mon objet graphique "Panel1" avec ses contrôles, mais là je ne sais pas trop comment faire...

Merci pour votre aide précieuse.
Philippe

C'est exact il faut que panel1 soit au choix, une classe PanelPerso ou un usercontrol.

Pour la classe, il faut que tu la crées, que tu la fasses hériter de la classe windows.forms.panel pour avoir accès à ses méthodes de fonctionnement, que tu déclares et ajoutes les controls que ton panel possèdera et il ne te restera alors plus qu'à créer des instances de ta classe pour avoir tes panels 'commentaires'.
Un peu de code illustre mieux que mes explications je pense ...

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
 
Public Class TonPanel
    Inherits Panel
 
 
    '///// Controls
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
 
 
    '///// Constructeur
    Public Sub New()
        MyBase.New()
        InitializeComponent()
 
        initialiserUI()
    End Sub
 
    '///// Méthodes
    Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(0, 0)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(100, 23)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Label1"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(0, 0)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(100, 20)
        Me.TextBox1.TabIndex = 0
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(0, 0)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(100, 23)
        Me.Label2.TabIndex = 0
        Me.Label2.Text = "Label2"
        Me.ResumeLayout(False)
    End Sub
 
    Private Sub initialiserUI()
 
 
        Controls.Add(Label1)
        Controls.Add(Label2)
        Controls.Add(TextBox1)
 
    End Sub
End Class

Code :

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

1
2
3
4
5
6
        'On déclare
        Dim panComment As TonPanel
        'On instancie
        panComment = New TonPanel
        'On ajoute sur le form ('Me' désigne Form1 ici)
        Me.Controls.Add(panComment)

Et pour ce qui est de l'userControl, il te faut faire clic droit sur la racine du projet dans ton explorateur de solution et faire "Ajouter" -> "Ajouter un UserControl".
Il apparaîtra un userControl1 vierge, tu peux glisser/déposer des controls dedans, et tu n'a plus qu'à compiler et instancier des objets userControl1. La nuance est que je ne garantis pas que l'userControl possède toutes les méthodes de panel, et qu'avec ton userControl il y aura un fichier .Designer.vb et un .resx qui accompagneront ton fichier de classe. (Et un tas de petits trucs qui me déplaisent avec l'userControl, mais c'est un choix personnel)

Code :

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

1
2
3
4
5
6
        'On déclare
        Dim panComment As UserControl1
        'On instancie
        panComment = New UserControl1
        'On ajoute sur le form ('Me' désigne Form1 ici)
        Me.Controls.Add(panComment)

Je ne suis peut-être pas très clair ... Si tu as des questions n'hésite pas.

[filtep]

Bonjour et merci pour vos réponses,

j'ai opté pour le Usercontrôle qui fait exactement ce dont j'ai besoin.
La création de classes est plus obscure pour moi, il faut du temps je pense pour être à l'aise avec ça.
C'est une des raisons pour laquelle j'ai mis temporairement de côté ma "formation en C++" (je suis un amateur bien entendu...)

Merci encore pour votre aide et à bientôt

Philippe