Controle image

[greg954]

Bonjour à tous!

j'ai créer un controle image dans un userform , j'ai mis backstyle sur transparent, j'aimerai si c'est possible cliquer sur le controle image et que le backstyle repasse en opaque

j'ai mis la macro suivante mais elle ne fonctionne pas:
Private Sub Image3_Click()
Me.Image3.BackStyle = 1
End Sub

je viens a me demander si il est possible de faire ca!!!!

merci pour votre aide et reponse

Greg

 

[MJ13]

Re : Controle image

Bonjour Greg

Pourrais-tu joindre ton fichier STP .

 

[tototiti2008]

Re : Controle image

Bonjour Greg, Bonjour Michel

Essaye d'ajouter un

Me.Repaint

après avoir changé la valeur de la propriété

 

[greg954]

Re : Controle image

Voici le fichier essai
j'ai essayer Me.Repaint mais ca me met une erreur,


Merci pour votre aide

Greg

 

[tototiti2008]

Re : Controle image

Re,

Private Sub Image6_Click()
Me.Image6.BackStyle = 1
Me.Repaint
End Sub

fonctionne chez moi

 

[Hulk]

Re : Controle image

Hello Greeg, MJ , tototiti ,

Idem chez moi...

Private Sub Image6_Click()

    Image6.BackStyle = 1
    Repaint

End Sub

 

[greg954]

résolu

Merci à vous de votre aide ça marche parfaitement!!

je n'avais pas mis le Repaint au bonne endroit

Merci encore pour votre rapidité.


Greg954

"résolu"