Choisir le curseur de la souris (mousepointer) sous access 2000

Commenter

Contenu du snippet

J'ai cherché longtemps comment faire pour changer le pointeur de la souris dans Access 2000 mais je n'ai pas trouvé la solution sur vbfrance.com (ce qui n'arrive pas souvent). Alors j'ai finalement trouvé ce petit code sur un autre forum qui permet de régler le curseur de la souris comme bon nous semble.
Pour les types de curseurs, aller voir dans la visionneuse d'API, dans les constantes.

Source / Exemple : 


'À mettre dans un module (Voir les constantes dans la visionneuse d'API)
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_WAIT = 32514&

Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long

'Dans votre code

Dim hCur As Long

hCur = LoadCursor(0, IDC_WAIT)
If (hCur > 0) Then
SetCursor hCur
End If

Conclusion :


Merci a vbfrance pour son site
Si vous avez des questions n'hésitez pas

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.