Ajouter un événement sur bouton radio créé dynamiquement
Résolu
nrgumn
-
nrgumn -
nrgumn -
Bonjour à tous,
J'ai créé plusieurs "radio bouton" grâce à la commande
Controls.Add("Forms.optionbutton.1", "Bouton_reponse" & Num_reponse, True)
Chaque bouton radio créé est stocké dans un tableau de la manière suivante
Dim Boutons_reponses(100) As Control
Set Boutons_reponses(Num_reponse) = Frame_Boutons_reponses(Num_frame).Controls.Add("Forms.optionbutton.1", "Bouton_reponse" & Num_reponse, True)
Mon problème, c'est que malgré toutes mes tentatives, je n'arrive pas à ajouter un événement de type "Click" sur chacun de ces radio bouton.
Le clic sur n'importe quel radio bouton devra déclencher une fonction (toujours la même fonction, peu importe le radio bouton cliqué) avec passage d'un argument en paramètre (un nombre entier)
Merci d'avance pour votre aide.
J'ai créé plusieurs "radio bouton" grâce à la commande
Controls.Add("Forms.optionbutton.1", "Bouton_reponse" & Num_reponse, True)
Chaque bouton radio créé est stocké dans un tableau de la manière suivante
Dim Boutons_reponses(100) As Control
Set Boutons_reponses(Num_reponse) = Frame_Boutons_reponses(Num_frame).Controls.Add("Forms.optionbutton.1", "Bouton_reponse" & Num_reponse, True)
Mon problème, c'est que malgré toutes mes tentatives, je n'arrive pas à ajouter un événement de type "Click" sur chacun de ces radio bouton.
Le clic sur n'importe quel radio bouton devra déclencher une fonction (toujours la même fonction, peu importe le radio bouton cliqué) avec passage d'un argument en paramètre (un nombre entier)
Merci d'avance pour votre aide.
1 réponse
-
Bonjour,
Le plus simple me semble-t-il, est de créer un module de classe pour tes boutons et tu passes ton paramètre dans la propriété tag.
Si tu ne connais pas tu regardes ce tuto de lermite222
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer. Antoine de Saint-Exupéry
