comme beaucoup de personne l'on remarqué, et comme moi j'ai eu la frustration de remarqué que lorsque l'on tape sous vb6 screen.mousepointer
ou que l'on utilise la Fonction API Getcursor, cela ne renvoie que la forme du curseur sur notre propre application, mais pas les applications extérieur, word, paint...
évidement tout les logiciels extérieur peuvent avoir leur propre forme d’icônes, et en plus à un numéro différent de 1 à 15, pour le standard !
mais là je ne chercher d'avoir essentiellement et uniquement les standards !
Source / Exemple :
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
Conclusion :
ceci permet de savoir, si le sabliez est utilisé dans une autre application, ou savoir quel forme à le curseur à l'extérieur de votre logiciel (tout les forme au delà du handle classic sont en forme 1 par defaut)
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.