Discussion :

[xawax34]

Bonjour,

J'ai une série de Textbox (par exemple), du type Textbox1, Textbox2, Textbox3 ...

comment puis je faire pour récupérer une propriété (text, name...) à l'aide d'une boucle, avec un code du type

For i = 0 to n
resultat(i) = Textbox(i).text
next i

Merci d'avance

Xav

[Gdal]

Salut,

Utilise For Each

Code :

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

1
2
3
4
5
6
7
8
 
Dim strTextBox as String
 
For Each TextBoxRech as TextBox In Me
 
strTextBox = strTextBox & " - " & TextBoxRech.text
 
next TextBoxRech

Voilà

Gwendal

[Lunelame]

Salut,

Je vais compléter, la rèponse de Gdal (qui est correcte)
Moi, je le fais plutôt comme ça :

Code :

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

1
2
3
4
5
6
7
8
 
Dim ctl as Control
 
For Each ctl In Me.Controls
If Ctl.GetType Is GetType(TextBox) Then
  ' Ton traitement
End if
Next

Ca te permet de ne traité que les contrôle TextBox, et d'ignorer les autres contrôle, contenu par Me.

@ +

[jontleman]

bonjour à tous

un peu dans le même genre, est-il possible d'assigner plusieurs "textbox" à plusieurs "labels" à l'aide d'une boucle?

plutot que:

equipe1_label1.text = score1_textbox.text
equipe1_label2.text = score2_textbox.text
equipe1_label3.text = score3_textbox.text
...

(equipe1_label(i).text = score(i)_textbox.text ?????)

Merci

[Pol63]

cette question passe au moins une fois par semaine
et toutes les semaines il y a des réponses

merci d'utiliser la fonction de recherche du forum
(et aux webmasters : le bouton recherche y saute pas aux yeux et on a pas envie de cliquer dessus, faut faire quelque chose ...)

[Poulain]

le bouton recherche y saute pas aux yeux et on a pas envie de cliquer dessus, faut faire quelque chose ...

C'est bien vrai ça, juste le faire clignoter... ou changer de couleur...

[Aspic]

Salut,

Je vais compléter, la rèponse de Gdal (qui est correcte)
Moi, je le fais plutôt comme ça :

Code :

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

1
2
3
4
5
6
7
8
 
Dim ctl as Control
 
For Each ctl In Me.Controls
If Ctl.GetType Is GetType(TextBox) Then
  ' Ton traitement
End if
Next

Je complete :

Code :

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

1
2
3
4
5
6
7
Dim ctl as Control
 
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
  ' Ton traitement seulement pour les TextBox
End if
Next

C'est mieux comme ca !!

[Aspic]

cette question passe au moins une fois par semaine
et toutes les semaines il y a des réponses

merci d'utiliser la fonction de recherche du forum
(et aux webmasters : le bouton recherche y saute pas aux yeux et on a pas envie de cliquer dessus, faut faire quelque chose ...)

+ 1 et +1 = +2