En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1225841 visiteurs

 10 visiteurs en ligne

Nous contacter

Contact

FAQ

Déplier Fermer  Formulaire

Placer ces déclarations dans un module général :

'Déclarations
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
          (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long


Ensuite, dans l'événement "Sur souris déplacée" (MouseMove) de l'objet souhaité :


Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle


Dernière modification :02/02/2007 : 17:06 Hyperlien 

Vous êtes ici :   Accueil » FAQ