Changer d'image au contact de la souris.

G

Guest

Guest

• 1 Octobre 2010

• #2

Re : Changer d'image au contact de la souris.

Bonjour,

T'es pourtant pas un débutant, et toujours pas de classeur exemple...

A+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 1 Octobre 2010

• #3

Re : Changer d'image au contact de la souris.

Bonsoir Hasco,


non , je n'ai pas de classeur. J'ai regarder dans les fonctions de la feuille,
il n'y a pas WorkSheets_ MouseMove.

Par contre, en intégrant une image en mode création, il y a MouseMove sur l'image.

Je viens de faire un test (Image) sans succès. A moins qu'il ne faille un module de classe.

A+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 2 Octobre 2010

• #4

Re : Changer d'image au contact de la souris.

Bonjour,

Non pas besoin de module de classe.

A+

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 2 Octobre 2010

• #5

Re : Changer d'image au contact de la souris.

Bonjour,

Voir pj

Code:

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 If X < 10 Or X > Image1.Width - 10 Or Y < 10 Or Y > Image1.Height - 10 Then
    Image1.Picture = LoadPicture("c:\mesdoc\bouchez.jpg")
  Else
    Image1.Picture = LoadPicture("c:\mesdoc\droc.jpg")
  End If
End Sub

JB

 

Pièces jointes

• ImageSurvol2.xls

  45 KB · Affichages: 102

Dernière édition: 2 Octobre 2010

Vote positif 0 Vote négatif