evenements sur objets dynamiquesRésolu

Question

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

Kristof_Koder · Accepted Answer

Impossible de gérer les evt sur un controle créé de cette façon.
Une solution : faire un groupe de controle
1- ajoute un label sur ta form
2- fixe sa propriété Visible à false
3- fixe sa propriété Index à 0
4- ajoute un label comme ca :
 Private LblCount As Long

...

lblCount = LblCount + 1
Load Label1(LblCount)
With Label1(LblCount)
  .Alignment = 2
  .Caption = ...
  .Font = ...
  .Top = ...
  .Left = ...
  ....
  .Visible = True
End With
5- Gères les EVTs click  dans la sub Label1_click() : son argument Index t'indique le label clické

PCPT · Answer

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

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

pulpul74 · Answer

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!

Evenements sur objets dynamiques

3 réponses

Votre réponse

Discussions similaires