Ajout du code pour des boutons dynamique

Question

J'essaie d'ajouter dynamiquement des boutons à une form, mais je n'arrive pas à y ajouter le code associé

Voici mon code :
        Set cmdBoutons = Me.Controls.Add("VB.CommandButton", "cmdBoutons" & intfNumeroBouton)
        cmdBoutons.Top = 300 + 900 * intfNumeroBouton
        cmdBoutons.Left = 100
        cmdBoutons.Width = 450
        cmdBoutons.Height = 300
        cmdBoutons.Caption = ">>"
        cmdBoutons.Visible = True
        
        intfNumeroBouton = intfNumeroBouton + 1

si je code l'événement cmdBoutons_click, l'événement n'arrive que pour le dernier bouton créé

Merci d'avance

PatriceVB · Answer

Cree plutot des boutons avec l'instruction load.
Pour cela crer un bouton avec un index=0 puis dans ton code pour créer ton bouton met load commandbutton1(1)
cela va créer un deuxième bouton avec un index 1 (modifie les positions du bouton pour le voir)
Pour gérer les evenements, tu n'as qu'a mettre l'vénement dans ton bouton(0) en testant  la valeur de l'index puor t'adapter au bouton que tu eux.
@+

wz2005 · Answer

salut cest moi wz2005 je vous en pries de m'envoy&#233; des codes pour mon projet fin d'etudes jai besoin des boutons de commandes

Ajout du code pour des boutons dynamique

2 réponses

Discussions similaires