Creation de plusieurs ComboBox

Version imprimable

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:

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 :mouarf:

auriez vous une solution svp??:calim2:

Hello,
si tu essaye comme ca :

Code:

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

???

03/06/2009, 21h49
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 ...
04/06/2009, 10h49
zaan00

Ah oui Sankasssss, sa marche bien pour nommer la combobox crée :ccool:
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 :roll: donc par exemple
"montb1.value" sa marche pas :cry:

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

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

Code:

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

04/06/2009, 17h01
Sankasssss

+1 pour ce qu'à écrit yann_DZ :ccool:
tu maintiens donc les controls dans un tableau pour y avoir accès après...
04/06/2009, 17h14
zaan00

Oui le code Yann ma permit de faire ce dont j'avais besoin merci :D