Comment créer des contrôles indicés en VB2005?

Bonjour,
Ultra débutant en VB2005, je suis habitué à VB 4.0, une vieillerie donc.
Je voudrai créer des contrôles indicés en VB2005.
En VB4.0, j'utilisais LOAD. Exemple :
for n=1 to 5
Load label(n)
next n
Ainsi, j'avais 6 labels indicés de 0 à 5.
Quel est l'équivalent en VB 2005?
Merci d'avance.

Citation:

---

Envoyé par michel perraut

Bonjour,
Ultra débutant en VB2005, je suis habitué à VB 4.0, une vieillerie donc.
Je voudrai créer des contrôles indicés en VB2005.
En VB4.0, j'utilisais LOAD. Exemple :
for n=1 to 5
Load label(n)
next n
Ainsi, j'avais 6 labels indicés de 0 à 5.
Quel est l'équivalent en VB 2005?
Merci d'avance.

---

A vu de nez je dirais cela :

Code:

---

1 2 3 4 5 6 7

For i As Integer = 0 To 4 Dim n As New Label n.Tag = "label numero " & n.ToString n.Size = New Size(10, 10) n.Location = New Size(150, 10) Me.Controls.Add(n) Next

---

Bonjour,
De plus pour gérer les événements en VBNet il n'y a plus la possibilité de boucler sur les contrôles.(du genre TxtBox(x)).
Il faut placer le test dans un évément commun et extraire le nom du contrôle activé)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub TXTBDossier_TextChanged(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles TXTA.TextChanged, TXTB.TextChanged, TXTC.TextChanged dim Txtb as TextBox Txtb = ctype(sender,textbox) select case txtb.name case "txtBa" ... case "txtbb" .... end select end sub

---

et aussi ajouter l'événement pour chaque contrôles

Code:

---

1 2 3

AddHandler TXTA.TextChanged, addressOf TXTBDossier_textChanged AddHandler TXTB.TextChanged, addressOf TXTBDossier_textChanged AddHandler TXTC.TextChanged, addressOf TXTBDossier_textChanged

---

bon boulot8-) Jean