[vb6] Gestion automatique de button Résolu

Question

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 ;-)

Sauvegarde2 · Answer

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

lermite222 · Answer

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

Sauvegarde2 · Answer

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

lermite222 · Answer

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+

[vb6] Gestion automatique de button

4 réponses

Votre réponse

Discussions similaires