Discussion :

[fabrice518]

Bonjour,
je viens de voir le tuto de shwin qui me servirais vraiment si j'arrivais à le mettre en oeuvre...

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


En effet, j'aimerais avoir un peu plus de détails;
- Est-ce que je dois mettre le code dans un module ? sur un evenement?
- A quoi correspont tel ou tel nom dans la fonction...
- Est-il possible d'utiliser un gif plutot qu'un .ani?

merci pour vos réponses !

[Tofalu]

Le code de déclaration peut être mis au choix dans le formulaire concerné ou bien dans un module en redefinissant les méthodes Change_curseur et Restaure comme public et non private.

L'appel du code quant à lui se fait là où tu en as besoin.

Et il n'est possible d'utiliser que des .ani à priori ou des .cur

[fabrice518]

Merci, ca m'a aidé mais maintenant j'essai de mettre un "curseur.ani" et il me met :

---------------------------------------------
------>Erreur de compilation:-----------
------>sub ou function non défini-------

En me surlignant : LoadCursorFromFile
---------------------------------------------

Je me suis dis alors, je vais modifié ca dans le code qui se trouve en en-tete, donc je change LoadCursor par LoadCursorFromFile
et là:
--------------------------------------------------
--------Erreur de compilation:----------------
--------Argument non facultatif---------------

avec en surligné LoadCursorFromFile
--------------------------------------------------

revoilà mon code :

Code :

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

1
2
3
4
 
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function LoadCursorFromFile 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
5
 
Private Sub txt_type_bur_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Call SetSystemCursor(LoadCursorFromFile("D:\curseur.ani"), 32513)
End Sub

Code :

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

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

En fait le but quand meme, est de mettre une icone d'une main sur une zone de texte, comme lorsqu 'on est sur un lien hyertexte.

Merci

[Arkham46]

Salut,

Ton API est mal déclarée, essaye avec :

Code :

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

Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String)

[fabrice518]

Salut,

merci pour ton code, je l'ai remplacé par le code en tete,
mais j'ai une nouvelle erreur:

Erreur d'execution '49'
Convention d'appel de DLL incorrecte

Et il me surligne en jaune:

Call SetSystemCursor(LoadCursorFromFile("D:\base_donnees\curseur.ani"), 32513)

qui se trouve dans mon xx_MouseMove

Pourtant le chemin d'acces est bon, alors je sais pas de quoi ca peut provenir, en tout cas, je suis dépassé par le code que j'ai copié en tete...

Merci pour les soluss !!

[Arkham46]

Oui j'ai oublié de typer le résultat de l'API :

Code :

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

Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) as Long

[fabrice518]

presque cool,

je n'ai plus de probleme avec le code ce qui est deja un grand pas,
mais le curseur ne change pas !!