générer le code des boutons

Question

Bonjour, 

Je génère des boutons mais je ne sais pas commend faire pour générer le code correspondant à chaque bouton
J'ai essayé de regarder les post sur les boutons dynamiques mais ca ne m'aide pas beaucoup
donc si quelqu'un pourrait m'éclairer...

petit morceau de code :

        
For j = 1 To NbrBtn
UET1 = RS2!IDUET
        Set MonBouton = Me.Controls.Add("VB.CommandButton", "Btn" & j, Me)
        MonBouton.Visible = True
        MonBouton.Left = Gauche
        MonBouton.Top = Haut
        MonBouton.Height = 375
        MonBouton.Width = 1095
        MonBouton.Caption = "Btn " & j
        Haut = Haut + 375
        ...
Next j

Exemple de ce que je souhaite

public sub Btn 1_click()
blabla...
end sub

Merci d'avance
RomBJX

crenaud76 · Answer

Passe par un groupe de bouton plutot que par un Add sur la collection Controls !! Par ta méthode tu ne peux pas accéder au evt des cotnrole ainsi créer !!

Christophe R.

philheiz · Answer

Pourquoi tu t'emmerdes avec cette technique ?

Tu crées un Button avec l'Index 0 (soit le premier d'un array de Buttons).

Tu double-clic dessus et tu attéris sur la procédure Event: Button1_click(Index as Interger).

Par exemple:
1 form avec un cmdButton nommé Command1

dans le form tu colles ce code:

Private Sub Command1_Click(Index As Integer)
    MsgBox Index
End Sub

Private Sub Form_Load()
    Dim i As Long
    For i = 1 To 5
        Load Me.Command1(Me.Command1.Count)
        Me.Command1(Me.Command1.Count - 1).Top = Me.Command1(Me.Command1.Count - 2).Top + Me.Command1(Me.Command1.Count - 2).Height
        Me.Command1(Me.Command1.Count - 1).Visible = True
    Next i
End Sub

Renfield · Answer

En faisant un Dim Withevents ....

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

cs_DARKSIDIOUS · Answer

Si il le peut, mais en faisant un hook de la feuille contenant le bouton, donc vraiment pas pratique ! Donc passe par un groupe de bouton, et crée un bouton patron pour avoir accès aux événements identifiés par un index.

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Renfield · Answer

si tu en as plusieurs, groupe de controles....

sinon, je tenais a dire que Controls.add fonctionne également :


Dim WithEvents MonNouveauBouton As CommandButton

Private Sub Form_Load()
    Set MonNouveauBouton = Me.Controls.Add("VB.CommandButton", "Btn", Me)
    With MonNouveauBouton
        .Caption = "MonNouveauBouton"
        .Visible = True
    End With
End Sub

Private Sub MonNouveauBouton_Click()
    MsgBox "Et en plus, il fonctionne !"
End Sub


Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

RomBJX · Answer

Bon alors, y'a un petit souci...

- Le nombre de bouton varie (entre 20 et 40 bouton peuvent entre généré)
- Le nom des boutons varie ((le nom est pompé à partir d'une base), leurs caption sont aussi leurs noms)
 -> donc j'aimerais tester l'évènement click sur le nom du bouon (et pas sur l'index parce que je compare le bouton à la base de données) afin d'exécuter le code correspondant

voilà j'espère que j'arrive à me faire comprendre

PS : peut etre qu'on peut le faire avec les groupes de boutons mais dans ce cas je sais pas comment faire... ;)

RomBJX

cs_DARKSIDIOUS · Answer

Et bien à ce moment là, utilise la méthode de Renfield qui a l'air de marcher.

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Générer le code des boutons

7 réponses

Discussions similaires