Discussion :

[thermo]

Bonjour

J'utilise le code suivant pour changer le curseur de la souris dans un projet qui utilise le classe clgdiplus.

Code :

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

   Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long

Code :

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

1
2
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal _
 lpCursorName As Long) As Long

Code :

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

1
2
3
4
Private Sub change_curseur()
Call SetSystemCursor(LoadCursor(0, 32515), 32512)
Call SetSystemCursor(LoadCursor(0, 32515), 32513)
End Sub

Code :

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

1
2
3
4
Private Sub restaure()
Call SetSystemCursor(LoadCursor(0, 32512), 32512)
Call SetSystemCursor(LoadCursor(0, 32513), 32513)
End Sub

Chaque fonction est placée sur un clic de bouton (pour test). Le curseur se transforme bien en croix, mais il ne redevient pas normal quand j'utilise le bouton de restauration.

Merci d'avance
Me manque t-il quelque chose à mon code.

[thermo]

Bonjour

J'ai réussi à faire ce que je voulais en utilisant le code suivant. Apparemment le problème n'a rien à voir avec GDI+. Je charge pour restaurer une flèche qui ressemble à celle utilisée par défaut.

Code :

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

1
2
3
4
5
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Const OCR_NORMAL As Long = 32512
Private newhcurs As Long

Code :

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

1
2
3
4
5
6
Private Sub Change_Curseur()
  Dim myDir As String
    myDir = CurrentProject.path & "\moncrayon2.cur"
    newhcurs = LoadCursorFromFile(myDir)
    Call SetSystemCursor(newhcurs, OCR_NORMAL)
End Sub

Code :

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

1
2
3
4
5
6
Private Sub Restaure_Curseur()
    Dim myDir As String
    myDir = CurrentProject.path & "\arrow_m.cur"
    newhcurs = LoadCursorFromFile(myDir)
    Call SetSystemCursor(newhcurs, OCR_NORMAL)
End Sub