Discussion :

[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.

[Aspic]

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 :

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

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

[JPelli]

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 :

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

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 :

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

1
2
3
AddHandler TXTA.TextChanged, addressOf TXTBDossier_textChanged
AddHandler TXTB.TextChanged, addressOf TXTBDossier_textChanged
AddHandler TXTC.TextChanged, addressOf TXTBDossier_textChanged

bon boulot Jean