Discussion :

[Rpi78]

Bonjour,

je vous expose mon problème.
Je souhaiterais utiliser une variable dans le nom d'un contrôle.
En effet, je dois effectuer le même traitement sur plusieurs contrôle. Je souhaiterais donc faire une boucle en ne changeant que le nom du contrôle.


Par exemple pour récupérer le nombre d'items des contrôles CheckedListBox

Au lieu de faire :

Code :

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

1
2
3
4
5
6
CheckedListBox1.Items.Count
CheckedListBox2.Items.Count
CheckedListBox3.Items.Count
CheckedListBox4.Items.Count
CheckedListBox5.Items.Count
...

Je pourrais faire une boucle en mettant l'indice du contrôle dans une variable.


J'ai trouvé une solution sur le net mais cela ne marche pas :

Code :

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

Me.Controls("CheckedListBox" & i).Items.Count

Cela me renvoie une erreur :

Variable objet ou variable d'un bloc With non définie.

Quelqu'un pourrait me donner la solution pour utiliser une variable dans le nom d'un contrôle ?

[shayw]

Salut

Code :

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

1
2
3
4
5
6
dim res as integer
  For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is CheckedListBox Then
                res = DirectCast(ctrl, CheckedListBox).Items.Count
            End If
        Next

tu ne peux pas assigner une valeur à CheckedListBox.Items.Count
tu peux assigner la valeur de CheckedListBox.Items.Count
à une variable

que veux tu faire ?

[rv26t]

Bonjour,

tu peux le faire ainsi pour les "CheckedListBox"

Code :

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

1
2
3
        For i As Integer = 1 To 5
            MsgBox(DirectCast(Me.Controls("CheckedListBox" & i), CheckedListBox).Items.Count)
        Next

A+, Hervé.