Connaître type icône de souris !

philippe laschweng 1 Messages postés 278 Date d'inscription jeudi 14 avril 2005 Statut Membre Dernière intervention 13 avril 2013 - 21 juil. 2005 à 14:17
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 21 juil. 2005 à 19:06
Bonjour à tous ,

Dans le Form Load de ma feuille j'affecte la propriété suivante au Command1 :
Command1.MousePointer = vbIbeam 'Icone Pointeur en I

Donc quand je passe la souris au-dessus du bouton Command1, l'îcone change pour devenir l'îcone en I.

Ma question : existe t'il un moyen de savoir quel type d'îcone prends le curseur de souris?
(En effet, j'aimerais détecter lorsque ma souris (curseur) se trouve au-dessus de Command1)

Merci d'avance !
Philippe

4 réponses

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
21 juil. 2005 à 14:24
Essaye en récupèrant la valeur de Screen.MousePointer...

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
0
philippe laschweng 1 Messages postés 278 Date d'inscription jeudi 14 avril 2005 Statut Membre Dernière intervention 13 avril 2013 2
21 juil. 2005 à 16:29
Le Screen.MousePointer ne fonctionne pas !!!!
(placé dans un timer)

Je vais allé mater l'API !
Bye et merci
0
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 18
21 juil. 2005 à 19:04
Salut,
Si ce n'est que détecter le passage de la souris sur un controle, bouton ou autre, utilise l'évènement mousemove.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
0
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 18
21 juil. 2005 à 19:06
L'exemple ne s'est pas inscrit donc rebelote :

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox Command1.MousePointer
End Sub

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
0