[vb6] Gestion automatique de button

Résolu
Sauvegarde2 Messages postés 205 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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   Statut Membre Dernière intervention   261
 
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 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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   Statut Membre Dernière intervention   261
 
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 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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