Discussion :

[nno]

Bonjour
Est il possible de faire apparaitre la petite main comme dans un lien hypertexte, sur un formulaire pour selectionner un nouveau formulaire ou un etat.
Merci

[Faw]

Slt,

j'avais trouvé ça un jour et ça marche bien:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim hCur As Long 'Cursor
 
    Public Const IDC_HAND = 32649 '(CURSOR)
 
    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
 
 
Function Curseur()
 
            hCur = LoadCursor(0, IDC_HAND)
 
        If (hCur > 0) Then
            SetCursor hCur
        End If
End Function

Tu met ça au niveau module et tu l'appelles sur mouseMove.

Pour remettre un curseur normal tu fais:

Code :

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

Screen.MousePointer = 0

Ps: Merci à Arkham46

8)

[nno]

Bien vu Faw
merci