Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 110 fois - Téléchargée 18 fois
Public Function MousePointer2() As Long Dim pci As CURSORINFO pci.cbSize = Len(pci): GetCursorInfo pci a& = pci.hCursor - 65552 If a& > 0 And a& < 26 Then MousePointer2 = Choose(a&, 1, 0, 3, 0, 11, 0, 2, 0, 10, 0, 8, 0, 6, 0, 9, 0, 7, 0, 5, 0, 12, 0, 13, 0, 14) Else MousePointer2 = 1 End If End Function sans oubliez pour ceux qui ne l'on pas : Public Type POINTAPI x As Long y As Long End Type Private Declare Function GetCursorInfo Lib "user32" (pci As CURSORINFO) As Long Private Type CURSORINFO cbSize As Long Flags As Long hCursor As Long ptScreenPos As POINTAPI End Type
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.