Changer curseur souris

Question

Bonjour, 
Alors voila j'ai regardé un peu partout, je ne trouve aucune réponse à mon problème. Je n'arrive pas à changer le curseur de ma souris. J'ai toujours le message erreur 481 "Image non valide". J'ai d'abord essayer les fichiers .cur puis .ico ainsi que ceux de windows. J'aimerais que lorsque je lance le Userform le curseur soir un curseur personnalisé que j'ai téléchargé sur mon bureau(pas un curseur windows donc).
Si vous pouviez m'aider svp?

otakurom · Answer

J'ai oublié de préciser que je travail en vba Excel.

lesdis · Answer

Bonjour,

Quel fonction, propriété utilises-tu pour changer l'icone de la souris?
Je suis sûr que les conditions à remplir pour l'image sont définis sur la doc de microsoft(msdn).

Bonne Prog

otakurom · Answer

Je n'utilise pas de fonction. En fait, dans les propriétés des userforms on peut cocher à Mousepointer, 99-fmmousepointercustom, et au dessus on a Mouseicon où on peut chercher une image.

lesdis · Answer

D'après ce que j'ai trouvé sur la toile, voici un exemple qui devrait fonctionner :


        Me.Button0.MousePointer = vbCustom
        Me.Button0.MouseIcon = LoadPicture("C:\Windows\Cursors\hmove.cur")


Pour connaître le format d'image cursor : http://en.wikipedia.org/wiki/ICO_%28file_format%29

Bonne Prog

otakurom · Answer

Oui j'avais trouvé ce code mais je ne sais pas comment l'appliquer exactement. Dans un bouton, userform_activate ou initialize?
Est ce qu'il faut déclarer quelque chose? Me par exemple. Merci^^

otakurom · Answer

J'ai testé ça:
Private Sub Userform_Activate()

Me.CommandButton1.MousePointer = vbCustom
Me.CommandButton1.MouseIcon = LoadPicture("F:\Windows\Cursors\aero_link.cur")
End Sub


Mais j'ai le message d'erreur image non valide

lesdis · Answer

Je ne vais pas pouvoir tester vu que je ne travaille pas sur windows ces temps-ci.
Je vais essayer de voir par rapport au message d'erreur, mais je ne pense pas pouvoir t'aider beaucoup plus 

Bonne Prog

otakurom · Answer

C'est pas grave, merci quand même pour ton aide^^

CTAC · Answer

Bonjour,

1 - vbCustom n'existe pas chez moi, c'est fmMousePointerCustom

2 - J'ai chargé un aero_link.cur et il me semble que c'est un théme de curseur.
    Il contient plusieurs curseurs, 1 pour le pointeur normal, 1 pour remplacer le sablier, etc
    C'est pour ça que tu obtiens image non valide.

ctac

otakurom · Answer

Ok! Ça explique pourquoi je viens d'y arriver avec un autre fichier .cur. Merci!

Changer curseur souris

10 réponses

Votre réponse

Discussions similaires