ouvrir un userform à partir d'une image créée dynamiquement

Version imprimable

20/10/2012, 20h36
eno97

ouvrir un userform à partir d'une image créée dynamiquement

Bonsoir tout le monde

voilà, j'ai un userform sur lequel un certain nombre d'images sont créée dynamiquement.

Ce que je voudrais c'est que, lorsque je clique sur l'une des images, un autre userform s'ouvre, mais je ne vois pas comment procéder

est-ce que quelqu'un pourrait m'aider?

merci d'avance
21/10/2012, 00h19
Oliv-

Bonsoir
Il faut utiliser un module de classe qui va gérer les événements sur tes images.
21/10/2012, 10h11
eno97

Bonjour

je viens de parcourir un tuto sur les modules de classes, et je t'avoue que je ne vois pas vraiment comment les utiliser pour réaliser ce que je veux faire

En fait tu pourrais créer les événements qui vont avec les noms de tes images

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Image1_Click()
MsgBox "fire 1"
End Sub
 
Private Sub Image2_Click()
MsgBox "fire 2"
End Sub
 
Private Sub Image3_Click()
MsgBox "fire 3"
End Sub
 
etc..

mais cela ne déclenche pas les événements click

tu dois donc utiliser un module de classe nommé ici Cls_ImageEvents

Code:

1
2
3
4
5
6
Public WithEvents Mesimages As MSForms.Image
 
 
Private Sub Mesimages_Click()
MsgBox Mesimages.Name
End Sub

et dans ton formulaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim collec_Images, new_image

Private Sub UserForm_Initialize()
    Dim LastTop
    LastTop = 66
    
    Dim Cl_Image As Cls_ImageEvents
    Set collec_Images = New Collection
    
    Dim n
    For n = 1 To 5
        Set new_image = Me.Controls.Add("forms.Image.1", "Image_" & n, True)
        With new_image
            .Top = LastTop
            LastTop = LastTop + .Height
        End With

        Set Cl_Image = New Cls_ImageEvents
        Set Cl_Image.Mesimages = new_image
        collec_Images.Add Cl_Image
    Next n



End Sub

En gras la partie qui va gérer tes évenements