PureBasic

; 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