créer un bouton dynamiquement et ajouter un "event Name"

[logemag]

Bonjour, sur mon projet, je dois créer des boutons dynamiquement, en les indexant, mais je ne sais pas comment donner un évènement à ce bouton indéxé, comment je dois faire comprendre que l'événement click sur n'importe lequel de ces boutons créera une action ?

Je sais pas trop si j'ai été clair : peut être un bout de code aidera mieux :

Sub Activity_Create(FirstTime As Boolean)
'demarre la page graphique
activity.LoadLayout ("designGRID")
'd�finit la longueur et largeur du bouton
Dim xPAN As Int : xPAN = panel1.Width / 4
Dim yPAN As Int : yPAN = panel1.Height / 5

' la boucle d'affichage des boutons en grille 4 x 5
Dim btnGRILLE(20) As Button
Dim index As Int : index = 0
For a = 0 To 3
    For b = 0 To 4
        btnGRILLE(index).Initialize ("btnGRILLE")
        panel1.AddView(btnGRILLE(index), xPAN * a, yPAN * b , xPAN, yPAN)
        btnGRILLE(index).Text = index ' �a sera remplac� par les �l�ments d'une liste
        btnGRILLE(index).Tag = index 
        index = index+1
    Next
Next
end sub

comment je définis un _click sur mon btnGRILLE(index) ?
ou comment ajouter un "Event name" à la création pour avoir un sender ?
(Débutant B4A, je regrette déjà les index de VB6 !)

[logemag]

pardon j'ai du trop réfléchir, mon Event Name est le Initialize, donc après c'est tout bête avec un sender :

Sub btnGRILLE_Click
Dim btnSELECT As Button 
    btnSELECT = Sender
    label1.Text = btnSELECT.tag
End Sub

désolé pour ce post...

Remarquez quand on vient de VB, ça change vraiment, et c'est peut être pas inutile comme petit exemple.

[klaus]

L'exemple existe, peut être un peu caché, dans le Beginner's Guide chapitre 3 Second Program.

Meilleures salutations.