bonjour,

Je fais actuellement un code pour ajouter tout une présentation par le code. Cela marche au début mais plus après ! Pouvez vous me dire ce qui cloche dans mon code ?

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
Dim Tab As New TabPage 
        Dim Text1 As New TextBox
        Dim But1 As New Button 
        Dim Etiquette1 As New Label
        Dim Etiquette2 As New Label
 
        '*****AJOUT DES ELEMENTS DE PRESENTATION*****
 
        Tab.Controls.Add(Text1)
        Tab.Controls.Add(Etiquette1)
        Tab.Controls.Add(Etiquette2)
        Me.TabControl1.TabPages.Add(Tab)
        TabControl1.SelectedTab = Tab
 
        '*****MISE EN PAGE DES ELEMENTS DE PRESENTATION*****
 
        Etiquette1.Text = "Effectué le :"
        Etiquette2.Text = "Patient :"
        Text1.Location = New Point(70, 8)
        Etiquette2.Location = New Point(10, 10)
        Etiquette1.Location = New Point(0, 10)
L' "Etiquette2" ne s'affiche pas...

Merci d'avance

Xav.