[vb6] Gestion automatique de button

Résolu/Fermé
Sauvegarde2 Messages postés 205 Date d'inscription dimanche 14 décembre 2008 Statut Membre Dernière intervention 11 janvier 2015 - 1 mars 2009 à 10:35
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 2 mars 2009 à 10:59
Bonjour,
Je suis sous vb6 et j'essaie de faire un jeu pour ma petite soeur.
Elle doit répondre à un calcul en cliquant sur l'un des 10 boutons que lui propose l'appli.
Comme c'est un peu lourd de faire une sub pour bouton je voudrais faire ce genre de truc :

For Each Button In Form
Reponse = Button.Caption
Next

Je suis un gros débutant alors j'aimerai bien des trucs pas trop compliqués.
Merci ;-)
A voir également:

4 réponses

Sauvegarde2 Messages postés 205 Date d'inscription dimanche 14 décembre 2008 Statut Membre Dernière intervention 11 janvier 2015 261
1 mars 2009 à 15:37
J'ai essayé ça mais ça ne fonctionne toujours pas T_T

Private Sub Boutons_Click(Bouton As Object)
Set Bouton = CreateObject("Form1.Controls.CommandButton")
Select Case Bouton
Case Bouton1
Reponse = 1
Calc
'etc
End Select
End Sub
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
1 mars 2009 à 16:14
Bonjour,
Tu n'est pas plutôt sous VBA (excel) ?
Si oui, Mais ce n'est pas si simple que tu le voudrais.
Et en VBA il n'y a pas d'autre solution pour les collections d'objets.
A+
Pour info, le VB d'excel c'est le VB6.3
0
Sauvegarde2 Messages postés 205 Date d'inscription dimanche 14 décembre 2008 Statut Membre Dernière intervention 11 janvier 2015 261
1 mars 2009 à 23:24
Non je suis sous Visual Studio 6.
Et j'ai trouvé une réponse après pas mal de recherche.
Il fallait faire un groupe de controle et jouer sur l'index
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
2 mars 2009 à 10:59
Tant mieux, ce qui m'a fait penser que tu était sous VBA c'est..
Set Bouton = CreateObject("Form1.Controls.CommandButton") 

Sous VB6, mettre un bouton avec l'index = 0
et seulement Load Bouton(1) etc..
A+
0