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
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
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:
Ps: Merci à Arkham46
Code : Sélectionner tout - Visualiser dans une fenêtre à part Screen.MousePointer = 0
8)
Bien vu Faw
merci
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager