QuiGonJinn
Messages postés8Date d'inscriptionmercredi 19 décembre 2001StatutMembreDernière intervention30 août 2002
-
29 août 2002 à 15:20
QuiGonJinn
Messages postés8Date d'inscriptionmercredi 19 décembre 2001StatutMembreDernière intervention30 août 2002
-
29 août 2002 à 15:59
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....
cs_processus
Messages postés360Date d'inscriptionvendredi 24 août 2001StatutMembreDernière intervention 9 juillet 20083 29 août 2002 à 15:45
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