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

 1121411 visiteurs

 3 visiteurs en ligne

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