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

Comment customiser le curseur de souris? [Résolu][VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 13-04-2004 à 15:06:28    

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
Reply

Marsh Posté le 13-04-2004 à 15:06:28   

Reply

Marsh Posté le 14-04-2004 à 10:55:56    

Code :
  1. Private Declare Function SetClassLongPtr Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long
  2. Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
  3. Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
  4. Const GCW_HCURSOR = (-12)
  6. Dim SysCursHandle As Long, Curs2Handle As Long
  8. Private Sub Form_Load()
  9.     'Load a cursor from a file
  10.     Curs2Handle = LoadCursorFromFile("D:\Mes supers tests\Static 7.cur" )
  11.     'Set the button's cursor
  12.     SysCursHandle = SetClassLongPtr(Command1.hwnd, GCW_HCURSOR, Curs2Handle)
  13. End Sub
  15. Private Sub Form_Unload(Cancel As Integer)
  16.     DestroyCursor Curs2Handle
  17. 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.  :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed