VB boucle for
Résolu
Bonjour,
je code actuellement en vb 2008 et j'ai une question à propos de la boucle for:
je voudrais que mon bouton soit clické, que cela change le nom des autres boutons, j'ai donc fait cette boucle:
Dim i As integer
For i = 1 to 12
Button(i).Text = "FreeSpace"
i = i + 1
Next
...Ce qui m'éviterait de devoir taper button1.Text = "Freespace", button2.Text= FreeSpace, Button3.....
Mais lorsque je compile il me dit que je ne peux pas me servir de Button ... car il ne comprend pas que ce n'est pas Button que je veut mais le widget Button1 par exemple !
Merci de m'aider à rectifier mon code !
Tchao, nodapio
je code actuellement en vb 2008 et j'ai une question à propos de la boucle for:
je voudrais que mon bouton soit clické, que cela change le nom des autres boutons, j'ai donc fait cette boucle:
Dim i As integer
For i = 1 to 12
Button(i).Text = "FreeSpace"
i = i + 1
Next
...Ce qui m'éviterait de devoir taper button1.Text = "Freespace", button2.Text= FreeSpace, Button3.....
Mais lorsque je compile il me dit que je ne peux pas me servir de Button ... car il ne comprend pas que ce n'est pas Button que je veut mais le widget Button1 par exemple !
Merci de m'aider à rectifier mon code !
Tchao, nodapio
Configuration: Windows XP Firefox 3.6
2 réponses
-
Super ça marche ! j'ai juste modifié un peu ton code parceque dans mon cas j'ai plusieurs boutons dans un GroupBox et à côté un bouton "remettre à zéro", donc j'ai modifié ....Me.Controls par GroupBox1.Controls.
Pour mon code de départ, cela m'affichait cette erreur: 'Button' est un type et ne peut pas être utilisé en tant qu'expression.
Encore merci ! -
bonjour,
button(i)=je suppose que t'as 1 tableau de boutons, donc je comprends pas pourquoi il te dit que tu ne peux...
sinon je te proposes de changer for par
For Each bouton As Object In Me.Controls
If TypeName(bouton) = "Button" Then
bouton.Text = "text"
End If
Next
