Discussion :

[potters]

Bonjour,

savez vous comment faire pour que le pointeur de la souris affiche un sablier?

merci

potters

[patbou]

bonjour
avec un peu de recherche j ai vu 2 fonction API qui tu pourras exploiter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Declare Function LoadCursor Lib "user32" _
(ByVal hInstance As Integer, ByVal lpCursorName As Long) As Integer
Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Integer) As Integer

la premiere function pour recuperer le handle de la souris, la 2eme pour charger
un icone

[Invité]

Bonjour

Avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Cursor = xlWait

et pour remettre le curseur normal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Cursor = xlDefault

Starec

[patbou]

voila j ai retrouvé un lien pour utiliser les differentes forme de souris avec les
api
l etendue de choix est un peu plus grande qu avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
application.cursor = xxxx

http://access.developpez.com/faq/?pa...ace#ChgAppCurs

[potters]

Super , merci a tous!!!


Potters