Discussion :

[zaan00]

Bonjour ! j'ai cherché une réponses à mon problème sur le forum , la faq , google mais rien ...

J'aimerai créé grâce aux codes plusieurs combobox , en faite sa j'y suis arriver avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
for i to nb
       maprocedure( y)
   y = y + 30
 
next
 
Sub maprocedure( ByVal py As Integer)
        Dim creation As New textbox
 
        creation.SetBounds(54, py, 100, 20)
        Controls.Add(creation)
end sub

Mais voila , ici en l'occurrence , les textbox s'affiche correctement mais je ne peut plus les utiliser puisque elle ont toutes le mêmes nom

auriez vous une solution svp??

[Sankasssss]

Hello,
si tu essaye comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
for i to nb
       maprocedure( y, i)
   y = y + 30

next

Sub maprocedure( ByVal py As Integer, ByVal iindiceNomAs Integer)
        Dim creation As New textbox
        creation.SetBounds(54, py, 100, 20)
        creation.name = "monTB" & indiceNom
        Controls.Add(creation)
end sub

???

[Pol63]

tu peux aussi garder une référence, plutot que de tester le nom
mais pour ca il faut apprendre les concepts de la programmation objet ...

[zaan00]

Ah oui Sankasssss, sa marche bien pour nommer la combobox crée
Mais maintenant je fais comment pour l'utiliser plus tard dans le code ?
Vu qu'elles ne sont créées seulement lors de l'exécution , elle n'ont pas encore de nom et vb y voit une erreur , normal donc par exemple
"montb1.value" sa marche pas

Et Sperot51 je compte bien l'apprendre seulement pour l'instant si je peut m'en sortir sans sa m'arrangerai

[yann_DZ]

Voici une solution pour utiliser tes textbox.
Tu peux créer un tableau de controls tab() :

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
Public Class Form1
    Dim nb As Integer = 10
    Dim y As Integer = 10
    Dim tab() As Control
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ReDim tab(nb - 1)
        For i = 0 To nb - 1
            tab(i) = New TextBox
            tab(i).setbounds(54, y, 100, 20)
            tab(i).name = "monTB" & i + 1
            Controls.Add(tab(i))
            y = y + 30
        Next
 
        'Ensuite il suffit de travailler avec l'indice du tableau
        tab(0).Text = "Toto"
        tab(5).text = "Titi"
    End Sub
End Class

[Sankasssss]

+1 pour ce qu'à écrit yann_DZ
tu maintiens donc les controls dans un tableau pour y avoir accès après...