Code : Tout sélectionner
; valeurs possibles pour le curseur :
#IDC_NO = 32648 ; curseur "interdit" (panneau d'interdiction)
#IDC_ARROW = 32512 ; la flèche (le curseur normal)
#IDC_IBEAM = 32513 ; curseur sélection de texte
#IDC_UPARROW = 32516 ; flèche qui pointe vers le haut
#IDC_APPSTARTING = 32650 ; curseur attente (flèche + sablier)
#IDC_WAIT = 32514 ; curseur occupé (sablier)
#IDC_CROSS = 32515 ; curseur précision de la sélection (croix)
#IDC_SIZENWSE = 32642 ; curseur de dimensionnment, pointe le NordOuest et le SudEst
#IDC_SIZENESW = 32643 ; curseur de dimensionnment, pointe le NE et le SO
#IDC_SIZEWE = 32644 ; curseur de dimensionnment, pointe le E et le O
#IDC_SIZENS = 32645 ; curseur de dimensionnment, pointe le N et le S
#IDC_SIZEALL = 32646 ; curseur de déplacement, pointe le N, S, E et O
#IDC_HELP = 32651 ; curseur aide
#IDC_HAND = 32649 ; curseur main
Procedure SetCursor(IdCursor.l) ; modifie le curseur de la fenêtre en cours
SetClassLong_(WindowID(), #GCL_HCURSOR, LoadCursor_(0, IdCursor))
EndProcedure
If OpenWindow(0, 200, 200, 400, 200, #PB_Window_SystemMenu, "Curseur")
; choix du curseur
SetCursor(#IDC_HAND)
Repeat
EventID.l = WaitWindowEvent()
Until EventID = #PB_EventCloseWindow
EndIf
End