Prendre la positon du curseur

Question

je fais un jeu de shooting et jai besoin , quand je click sur par example sur un boutton sa me dit la position actuel du cuseur.

pouvez vous me donner le code ki permet de savoir la position du curseur. SVP!!!!

aidez moi svp

digital signature:>>> ouin c ma signature ca
Call ironz

cs_DARKSIDIOUS · Answer

Oui, tu peux utiliser la fonction API GetCursorPos. Pour plus d'info sur cet api, tu peux te rendre sur le site www.ProgOtoP.com ;-)

DARK SIDIOUS

[Responsable de la rubrique API du site www.ProgOtoP.net]

Renfield · Answer

voila un exemple de ce que tu veux....

' declaration d'API
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
        X As Long
        Y As Long
End Type

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Mouse As POINTAPI
    'recupere les coordonnées de la souris
    Call GetCursorPos(Mouse)
    'Passe en ccordoonnées de la fenetre (coin haut gauche = 0,0)
     Call ScreenToClient(Me.hwnd, Mouse)
     Call MsgBox("Coordonées de la souris : " & vbCrLf & "( " & Mouse.X & " ; " & Mouse.Y & " ) ")
End Sub


met ca comme ca , dans le code d'une nouvelle form......
-----------------------------------------------------------------------
By Renfield

thomas_reynald@msn.com

Aucune touche n'a été bléssée lors de la saisie de ce texte..........

Prendre la positon du curseur

2 réponses

Discussions similaires