Bonjour,
Je créé dynamiquement des label dans un form, jusque là, tout va bien. Seulement, je veux maintenant gérer des evenements (un click souris en l'occurence) sur ces labels. J'ai eu beau chercher sur internet ou ici, les techniques que j'ai vu n'ont pas fonctionnées (surement que je les ai mal utilisées, ca se pourrai bien! '-_-). Voici mon code  de création des objets:

Set my_object = Me.Controls.Add("vb.Label", "Lbl_sortie" & i, Frm_details_liste)
        With my_object
            .Alignment = 2
            .Caption = Data_frm_details.Recordset!Date_sortie
            .Font = "Lucida Sans"
            .Font.Size = 11
            .Top = 1200 + i * 360
            .Left = 720
            .Visible = True
            .Height = 255
            .Width = 1815
        End With

voila si quelqu'un pourrait m'aider?merci d'avance

salut,

oulaaaa Kristof_Koder,
même si les contrôles indéxés sont à préférer (bien plus pratique à maintenir niveau code), ce n'est pas pour autant que c'est impossible !!


Option Explicit
Private WithEvents my_object As Label

Private Sub Form_Load()
'    Set my_object = Me.Controls.Add("vb.Label", "Lbl_sortie" & i, Frm_details_liste)
    Set my_object = Me.Controls.Add("vb.Label", "Lbl_sortie", Frm_details_liste)
        With my_object
            .Alignment = 2
            .Caption = "CAPTION" 'Data_frm_details.Recordset!Date_sortie
            .Font = "Lucida Sans"
            .Font.Size = 11
            .Top = 200 '1200 + i * 360
            .Left = 720
            .Visible = True
            .Height = 255
            .Width = 1815
        End With
End Sub

Private Sub my_object_Click()
    MsgBox "CLICK"
End Sub


c'est aussi possible en plus compliqué avec l'objet Extender qui renvoie un évènement de type EventInfo

++

---

Prenez un instant pour répondre à ce sondage svp

Ok merci pour vos réponses.

J'ai gardé la technique de Kristof_Koder, elle est assez simple, par contre, pour la technique des objets dynamiques, rien à faire, rien ne se passe lors du click, alors je sais pas d'où ca vient, peut etre le "Private WithEvents my_object As Label" qui est mal placé, ou une référence que j'ai pas ajouté... je sais pas, bon enfin j'ai quand même trouvé une solution, même si ce problème d'objets dynamiques me chagrine...
Merci!