1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| Option Compare Database
Private CurseurCurrent As Variant
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal Id As Long) As Long
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal _
lpCursorName As Long) As Long
'Liste d 'apparences disponibles :
'32512 flèche
'32513 curseur en I
'32514 sablier
'32515 croix
'32516 flèche vers le haut
'32640, 32642, 32643, 32644, 32645, 32646 doubles flèches de redimensionnement
'32648 stationnement interdit
'32649 main
'32650 flèche sablier
'Curseur personnalisé:
Sub Change_Curseur_En(CurseurNew As Variant)
If IsNull(CurseurCurrent) Then
MsgBox "curseur null"
CurseurCurrent = 32514
End If
If CurseurCurrent <> CurseurNew Then
Call SetSystemCursor(LoadCursor(0, CurseurCurrent), 32512) 'remet le curseur a sa place
Call SetSystemCursor(LoadCursor(0, CurseurNew), 32512) 'met le nouveau curseur
CurseurCurrent = CurseurNew
End If
End Sub
Sub Restaure_Curseur()
If CurseurCurrent <> 32512 Then
Call SetSystemCursor(LoadCursor(0, CurseurCurrent), 32512) 'remet le curseur a sa place
CurseurCurrent = 32512
End If
End Sub |
Partager