Curseur de souris

Messages postés
8
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
30 août 2002
-
Messages postés
8
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
30 août 2002
-
bonjour,

je souhaiterai pouvoir changer le curseur de la souris, pas seulement pour mon appli, mais pour tout windows.... et pouvoir le remttre comme avant ensuite....

Quelqu'un aurait il une idée ??

Merci d'avance.

2 réponses

Messages postés
360
Date d'inscription
vendredi 24 août 2001
Statut
Membre
Dernière intervention
9 juillet 2008
3
Sur allapi.net

'Code by Jerry Grant (Jerry@jg-design.net)
'Visit his website at http://www.jg-design.net
'This example requires two command buttons
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function CopyIcon Lib "user32" (ByVal hIcon As Long) As Long
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Const OCR_NORMAL As Long = 32512
Private currenthcurs As Long
Private tempcurs As Long
Private newhcurs As Long
Private Sub Command1_Click()
Dim myDir As String
Dim lDir As Long
myDir = Space(255)
currenthcurs = GetCursor()
tempcurs = CopyIcon(currenthcurs)
lDir = GetWindowsDirectory(myDir, 255)
myDir = Left$(myDir, lDir) & "\cursors\banana.ani"
newhcurs = LoadCursorFromFile(myDir)
Call SetSystemCursor(newhcurs, OCR_NORMAL)
End Sub
Private Sub Command2_Click()
Call SetSystemCursor(tempcurs, OCR_NORMAL)
End Sub

==============
Site Web de JDPROG
Présentation de MP3 Index
Logiciel d'indexation de fichier MP3

http://jdprog.fr.st
Messages postés
8
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
30 août 2002

Merci beaucoup.. je retiens d'ailleurs le site que tu m'as donné...

A+ merci.