Mousepointer2 pour vb6 la version étendue de mousepointer ou getcursor

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 874 fois - Téléchargée 18 fois

Contenu du snippet

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)

A voir également

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.