Tu doit pour cela utiliser les API windows
Voici un petit exemple qui devrait te convenir
Ouvre un nouveau projet VB et ajoute 2 commandbutton
command1 et command2 a la feuille form1
et recopie ce bout de code(tout n'est pas de moi trouve sur ProgOTop et vbfrançe)
'Cet exemple change le curseur quand on clique sur "Command1" et
'Revien au curseur courant quand on clique sur "Command2"
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)
'Les 3 curseurs ANIME de Windows
myDir = Left$(myDir, lDir) & "\cursors\N_ibeam.ani"
'N_UpArrow.ANI N_ibeam.ani APPSTART.ANI HOURGLAS.ANI"
'myDir = "C:\Mes documents\Mes icônes\Mort.ico"
newhcurs = LoadCursorFromFile(myDir)
Call SetSystemCursor(newhcurs, OCR_NORMAL)
End Sub
Private Sub Command2_Click()
Call SetSystemCursor(tempcurs, OCR_NORMAL)
End Sub
Bonne prog et a +
MD
|