[Résolu][VB6] Comment customiser le curseur de souris?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu][VB6] Comment customiser le curseur de souris?

Lancelot**

All I do is kiteboarding

Salut à tous

Je souhaite modifier l'apparence de mon curseur de souris lorsque celle-ci passe au-dessus d'un bouton. Le pb est que VB ne semble accepter que des curseurs monochromatiques (noir & blanc) et ne tient aucun compte de la position du hotspot!!!

Comment remédier à ces 2 pbs?

Merci

Message édité par Lancelot** le 14-04-2004 à 10:56:28

Publicité

Lancelot**

All I do is kiteboarding

Code :

Private Declare Function SetClassLongPtr Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord 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
Const GCW_HCURSOR = (-12)
Dim SysCursHandle As Long, Curs2Handle As Long
Private Sub Form_Load()
'Load a cursor from a file
Curs2Handle = LoadCursorFromFile("D:\Mes supers tests\Static 7.cur" )
'Set the button's cursor
SysCursHandle = SetClassLongPtr(Command1.hwnd, GCW_HCURSOR, Curs2Handle)
End Sub
Private Sub Form_Unload(Cancel As Integer)
DestroyCursor Curs2Handle
End Sub

Voilà! c'était aussi simple que ça :whistle:

PS: ca résoud à la fois le pb de hotspot et le pb des curseurs multicolores. On peut même utiliser des curseurs animés.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu][VB6] Comment customiser le curseur de souris?

Sujets relatifs
[résolu] gestion d'erreurs	[résolu] changer de répertoire dans une dirlistbox
[résolu tout seul] Problème avec Gtk => ** (Test Gtk.exe:1144):	[servlets]sessions avec j2se1.3.1[resolu]
Numéro de ligne [Résolu]	Une servlet qui met à jour un formulaire [résolu]
[resolu tout seul ^^] Probleme avec socket & printf	[PHP] comment stopper l'éxecution d'un script ??? [résolu : exit()]
[SQL] [Résolu] Requete avec COUNT et GROUP BY	Upload de fichier (probleme résolu :D)
Plus de sujets relatifs à : [Résolu][VB6] Comment customiser le curseur de souris?

Page générée en 0.020 secondes