Discussion :

[serana71]

Bonjour,


J'aimerais savoir s'il existe un code VB SIMPLE me permettant de remplacer le curseur par défaut de la souris par un curseur que j'ai créé. Je voudrais qu'à l'événement Form_Load, le curseur change, puis qu'il redevienne normal à la fermeture de l'application. J'ai trouvé des tas de codes compliqués sur internet, j'en ai essayé quelques uns sans succès. Je précise : je ne souhaite pas que mon curseur change en passant sur un label ou autre, mais qu'il reste pendant toute mon application et ce, quelle que soit la Form chargée...

Est-ce possible (commençons par les questions de base) ?


Serana

[Delbeke]

Il faut charger le curseur au form_load de chaque feuille de ton projet

Code :

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

1
2
3
4
Private Sub Form_Load()
  Me.MouseIcon = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Cursors\4WAY01.CUR")
  Me.MousePointer = 99
End Sub

[ProgElecT]

OUI
Pour chaque Form
MousePointer (= 99)
MouseIcon = MonIconAmoi.ICO
Les composants posés sur ces Forms auront le curseur du Form ou il sont posés, a moins que tu ne changes de MousePointer pour ces composants, en design ou au cours du run.
L'icon curseur ne sera pour autant que pour ces Forms, si tu passes sur une fenêtre d'un programme externe, l'icon sera celui de cette fenêtre.

[l_autodidacte]

Ou encore une solution qui ne renvoie d'erreur que si le chemin est invalide:

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
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Private Const GCW_HCURSOR = (-12)
Private Const IDC_WAIT = 32514&
 
Dim hSysCurs As Long, hCurs1 As Long, hCurs2 As Long
' On doit ajouter sur l'objet Form1 un CommandBbutton appelé par défaut Command1
Private Sub Form_Load()
    ' Charge un curseur par défaut
    hCurs1 = LoadCursor(ByVal 0&, IDC_WAIT)
    '  Charge un curseur à partir d'un fichier
    hCurs2 = LoadCursorFromFile("F:\Windows\Cursors\pen_m.cur")
    ' Curseur pour Form
    hSysCurs = SetClassLong(Me.hwnd, GCW_HCURSOR, hCurs1)
    ' Curseur pour le bouton Command1
    hSysCurs = SetClassLong(Command1.hwnd, GCW_HCURSOR, hCurs2)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    ' Restauration du curseur par défaut
    SetClassLong Me.hwnd, GCW_HCURSOR, hSysCurs
    '  Suppression des handles créés : Nettoyage
    DestroyCursor hCurs1
    DestroyCursor hCurs2
End Sub

Pour n'avoir qu'un seul curseur pendant toute l'exécution, il suffit d'adapter le code pour les différents objets Forms s'il y en a plusieurs.

[serana71]

Merci beaucoup pour les réponses !


Serana

[serana71]

Euh... j'ai essayé, mais apparemment ça ne marche pas. VB me détecte une erreur 481, ce qui correspond à Image incorrecte. J'ai vu que cela pouvait provenir du type de fichier utilisé, mais le mien est un .cur, ça devrait fonctionner. De plus j'ai trouvé le même problème dans des forums, avec des jpg, des bmp, etc. mais je n'ai pas réussi à trouver de solutions.

Est-ce quelqu'un aurait une idée ?


Serana

[justgreat]

si tu veux que le curseur change uniquement sur ton application et pas sur Windows, pourquoi tu ne mets pas simplement :
sur le load de ta forme principale , ou sur le load de chacune de tes formes quelque chose du genre :

Form1.MouseIcon = LoadPicture("c:\MonCurseur.ico")
Form2.MouseIcon = LoadPicture("c:\MonCurseur.ico")
Form3.MouseIcon = LoadPicture("c:\MonCurseur.ico")

...

Ceci Biensure après avoir mis la propriété des curseurs de tes formes à :

99-Custom

[serana71]

Mais c'est exactement ce que je fais ^^'...

Le problème c'est qu'il ne reconnaît pas mon curseur.cur comme Image "correcte". Alors que dans la MSDN c'est marqué que ce type d'extension est bien pris en compte par VB6. Il me sort son Erreur 481 et j'ai beau essayer avec un jpg ou autre, ça ne fonctionne pas.

Je désespère... (soit pour VB6 soit pour moi)


Serana

[justgreat]

comment t'as fais pour créér ton curseur.cur ?
Si tu as une image .jpeg et tu modifies uniquement l'extension, ça ne marchera pas , il te faut un programme (y en a un tas gratuit sur le net) qui crée des .cur !

[serana71]

Je me suis servie de aniFX, mon curseur marche très bien quand je change les paramètres depuis le panneau de configuration, mais je n'arrive pas à y accéder avec VB6. J'ai essayé avec un .ico, un .jpg, ça marche pas non plus...

[ProgElecT]

Peux tu nous mettre exactement le code que tu as mis dans le Form_Load et aussi le fichier image que tu charges et qui pose probléme.

[l_autodidacte]

Erreur 481 : Image incorrecte.
Il peut s'agir de la résolution(ou nombre de couleurs) utilisée. Si c'est 256 ou plus, tu peux avoir ce message d'erreur. Essaie de créer un fichier .cur avec ImagEdit.exe(de Microsoft).
Je t'invite par la même occasion à lire cet article

[serana71]

Exact, l_autodidacte.

J'ai fait un test avec un curseur en 256 couleurs, ça marche, il s'affiche bien. C'était donc ça le problème. Par contre, du coup, il est en noir et blanc, et les codes pour afficher des curseurs en couleurs ont l'air d'être trèèèès compliqués. Et je ne veux pas avoir à rajouter 50 lignes sur chacune de mes forms...

Et un grand merci aussi pour l'article, c'est exactement ce qu'il me fallait. Je vais essayer de trouver ImagEdit !

En tout cas merci pour votre aide !

Serana

[l_autodidacte]

Tu peux télécharger ImagEdit si tu ne l'as pas trouvé sur ton CD d'installation VB5,VB6 ou VS6.

[serana71]

Merci beaucoup, je l'ai trouvé, mais je n'ai pas l'éditeur de ressources. En fait je n'ai qu'un seul complément. Mais sur mon PC portable, j'ai tout ce qu'il faut.

Encore merci.


Serana

[l_autodidacte]

mais je n'ai pas l'éditeur de ressources. En fait je n'ai qu'un seul complément.

Un peu bizarre mais si tu veux l'avoir, réinstalle VB6(Visual Studio 6) selon ta version et regarde bien dans les options d'installation si le programme te propose d'installer l'éditeur de ressources ou non. Normalement, son installation est automatique.
Tu peux également créer une entrée dans la BD en ajoutant ce qui suit au registre :

Code :

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

1
2
3
4
5
6
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Microsoft Visual Basic AddIns\VB 6 Resource Editor]
"ColumnSizes"=""
"STWidth"="7095"
"STHeight"="4380"
"DisplayOnConnect"="Faux"

Cela pourrait le faire apparaître dans les compléments.