Discussion :

[amallely]

Bonjour à tous

J'aimerai savoir s'il est possible de modifier l'aspect de la souris (main au lien de fleche) lors du passage de celle-ci sur une zone texte. Un peu comme un lien hypertext

Salutaccess

[Vesta]

http://access.developpez.com/faq/?pa...ace#ChgAppCurs

[Tofalu]

Le problème va être de pouvoir changer le curseur en sortant de la zone de texte ... car s'il existe un evenement mouse_move sur la zone de texte, il n'existe pas de mouse_out

[Vesta]

Et pour savoir quand ton curseur est dessus
Tu met un timer sur la forme et ca pour code dedans

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
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim PosCursor As PosCurs
Dim r As Long
 
r = GetCursorPos(PosCursor)
' PosCursor.X = position du curseur en x
' PosCursor.Y = position du curseur en y
 
 
 
Et dans un module
 
Option Explicit
 
'************************************************************
' Déclarations des API :
' Détecte la position du curseur
'
Public Declare Function GetCursorPos Lib "user32" (lpPoint As PosCurs) As Long
'Modifie la position du curseur
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
'
'************************************************************
 
 
' Déclaration du type PosCurs necessaire pour l'API
 
Public Type PosCurs
    X As Long
    Y As Long
End Type

Edit tofalu : Pensez aux balises code

[Invité]

Salut,

Va voir ce post

http://www.developpez.net/forums/viewtopic.php?t=392543

en utilisant le compasant Miscrosof forms2.0 label tu devrais arriver à la même chose

Starec