urgent... comment faire une boucle avec 10 objets différents...

Question

Bonjour,

voilà la question est de savoir s'il est possible de faire une boucle qui permettrait, en ayant 10 boutons (cmd1, cmd2...., cmd10), de changer les valeur dans ces boutons par exemple en faisant un truc du style :
je voudrais en fait que mes boutons prennent les valeurs de 1 à 10.pour eviter de taper chaque ligne cmd1.text = 1 etc...
merci

for i = 1 to 10 

toto ="cmd" & i
toto.text = i
next

sinon comment puis je faire svp...

oliver68 · Answer

je sais plus comment, mais tu peux indexer tes boutons pour faire une boucle comme tu veux.
voir l'aide...
good luck

Angelus · Answer

héhé thanks j'ai trouvé :)
pour ceux que ca interresse je mets le code ici

sachant qu'il faut mettre l'index des boutons choisis de 0 à ?? 
Dim A
Dim i,j
J= 1
A = array(button1,button2,button3....,button20)
For each i in A
    i.caption = j
    j = j + 1
Next i

voilà
a bientôt  :big)

patochecool · Answer

tu peux utiliser l'objet Controls

form1.Controls("cmd" & index). ...

ou alors lorsque tu cr&#233;e ton bouton indique la propri&#233;t&#233; Index = 0 ( &#224; la cr&#233;ation graphique ) toutes les commandes seront alors ind&#233;x&#233;es automatiquement... Les events et propri&#233;t&#233;s 

Exemple
Private Sub Command1_Click(Index As Integer)
msgbox   Command1(index).caption


End Sub

Urgent... comment faire une boucle avec 10 objets différents...

3 réponses

Discussions similaires