Discussion :

[username1]

salut, je suis nouveau sur le forum ,
comme dans le titre mon probleme c'est que j'arrive pas à creer un textbox avec du code
svp aidez moi meme si je trouve des solutions sur le net j'arrive pas à le faire marcher sur mon ordi
je vois souvent la methode forms.controls.add mais qui reçoit trois parametres alors que chez moi cette methode ne reçoit qu'un ,et là je suis un peu perdu
merci d'avance

[sevyc64]

Code C# :

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

1
2
3
4
5
6
7
TextBox MonTextBox= new TextBox();                             
 
this.Controls.Add(MonTextBox);              
MonTextBox.Text = "Textbox créé dynamiquement";              
MonTextBox.Size = new Size(150,25);              
MonTextBox.Location = new Point(100, 100);              
MonTextBox.Visible = true;

Code VB :

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

1
2
3
4
5
6
7
8
 
MonTextBox As New TextBox    
 
Me.Controls.Add(MonTextBox)  
MonTextBox.Text = "Textbox créé dynamiquement"  
MonTextBox.Size = New Size(150,25)  
MonTextBox.Location = New Point(100, 100)  
MonTextBox.Visible = true

[username1]

merci merci bcp !! ça marche impec DD

[Julien671]

Bonjour,

j'aimerais créer plusieurs Textbox sur un même formulaire. Pour ce faire, j'ai utilisé le code que vous avez donné, mais en rajoutant une boucle For. Malheureusement, lorsque je lance le programme, il ne s'affiche que la textbox correspondant à la dernière valeur de la boucle. Comment faire pour laisser les textbox précédentes affichées?

Voici ce à quoi je suis arrivé:

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
Dim i As Integer
        Dim NumeroTextBox As Integer
        Dim MonTextBox As New TextBox
 
        For i = 1 To 10
 
            MonTextBox.Name = "NomdelaTextBox" & NumeroTextBox
            Form2.Controls.Add(MonTextBox)
            MonTextBox.Text = "Textbox créé dynamiquement"
            MonTextBox.Size = New Size(150, 25)
            MonTextBox.Location = New Point(10, 20 * i)
            MonTextBox.Visible = True
            NumeroTextBox = NumeroTextBox + 1
 
        Next

Merci.

[sevyc64]

Code :

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

1
2
3
4
5
6
...
        Dim MonTextBox As New TextBox
 
        For i = 1 To 10
...
        Next

Tu ne crée la textbox qu'une seule fois, c'est donc normal que tu n'en ai qu'une sur la form.

Code corrigé :

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
 
Dim i As Integer
        Dim NumeroTextBox As Integer
        Dim MonTextBox As TextBox
 
        For i = 1 To 10
 
            MonTextBox = New TextBox
            MonTextBox.Name = "NomdelaTextBox" & NumeroTextBox
            Form2.Controls.Add(MonTextBox)
            MonTextBox.Text = "Textbox créé dynamiquement"
            MonTextBox.Size = New Size(150, 25)
            MonTextBox.Location = New Point(10, 20 * i)
            MonTextBox.Visible = True
            NumeroTextBox = NumeroTextBox + 1
 
        Next

[Julien671]

Merci beaucoup! Surtout pour la rapidité de la réponse!