Changer le curseur dans l'application
guehu
Messages postés
1
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
15 mars 2004
-
15 mars 2004 à 14:47
Arsena Messages postés 190 Date d'inscription lundi 24 mars 2003 Statut Membre Dernière intervention 27 septembre 2005 - 15 mars 2004 à 15:10
Arsena Messages postés 190 Date d'inscription lundi 24 mars 2003 Statut Membre Dernière intervention 27 septembre 2005 - 15 mars 2004 à 15:10
2 réponses
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
15 mars 2004 à 14:57
15 mars 2004 à 14:57
Regarde du cote d'une propriété MousePointer sur une form.
Christophe R.
Christophe R.
Arsena
Messages postés
190
Date d'inscription
lundi 24 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2005
15 mars 2004 à 15:10
15 mars 2004 à 15:10
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
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
