CreateEventProc..toujours et encore

[Bz]

Voila je suis sous powerpoint

Je cherche a creer dynamiquement un nombre aleatoire de controles images et recuperer les evenements click associés.

Code :

1
2
3
4
5
6
7
8
9
10
    Dim retour As Long
    Set imgDiap = FrmNarrateur.frameDiap.Controls.Add("Forms.Image.1", "Image1", True)
    imgDiap.Picture = LoadPicture("c:\img\sl1.jpg")
    imgDiap.Left = 30
    imgDiap.Height = 100
    imgDiap.Width = 100
    imgDiap.Top = 30
    imgDiap.PictureSizeMode = fmPictureSizeModeStretch
    retour = Application.VBE.ActiveVBProject.VBComponents("FrmNarrateur").CodeModule.CreateEventProc("Click", "Image1")
    Application.VBE.ActiveVBProject.VBComponents("FrmNarrateur").CodeModule.InsertLines retour + 1, vbTab & "MsgBox ""Way cool!"""

J'ai pu tester ce code et ca a marché les 2 ou 3 premieres fois. Enfin qd je dis que ca a amrché, il m'a bien créé un composant image, le code de l'evenement associé mais pas de réaction sur le clic de l'image.
Depuis, impossible de le faire marcher "Gestionnaire d'evenements non valide" sur le CreateEventproc :/

voili, voilou

[SilkyRoad]

bonjour

tu peux aussi utiliser un module de classe pour gérer les evenements Click dans les objets créés dynamiquement

http://silkyroad.developpez.com/VBA/...icEditor/#LV-A


michel