[VB 6.0]Ottenere coordinate mouse

[XBarboX]

Salve,
ho cercato parecchio in internet ma senza successo.
Ho estremo bisogno di sapere come ottenere le coordinate del mouse, e salvarle nella variabili X,Y(Integer).

una roba del tipo:
x = mouse.x
y = mouse.y

Grazie

[oregon]

GetCursorPos Function
http://msdn.microsoft.com/en-us/library/ms648390(VS.85).aspx


P.S. Fai attenzione ... non è questa la sezione giusta per il VB6

[XBarboX]

scusa ma io di vb ne so poco... mi puoi fare un piccolo esempio di come si dichiara una variabile di tipo point? ho provato a scrivere dim x as point, ma non va.
Come faccio a salvare in 2 variabili DI TIPO INTERO queste maledette coordinate del mouse?

[oregon]

Originariamente inviato da XBarboX
scusa ma io di vb ne so poco...

Un buon motivo per studiarlo ...

mi puoi fare un piccolo esempio di come si dichiara una variabile di tipo point?

L'avresti trovata ovunque su internet, se solo avessi fatto una ricerca con quella API ...

Public Type POINTAPI
   X As Long
   Y As Long
End Type

Dim ptPosizione As POINTAPI

[XBarboX]

Così funziona:

Option Explicit

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim pt As POINTAPI

Private Sub Timer1_Timer()
GetCursorPos pt
Label1.Caption = pt.X
Label2.Caption = pt.Y
End Sub

[oregon]

Originariamente inviato da XBarboX
Così funziona

Già ...