que en un label se vean pasisiones del mouse?

[koopa2]

hola gente , como ago para que un label se vean las posisiones de un mause?

saludos y gracias

[GroK]

Wenas

A ver, pon un label y un timer. En las Declaraciones del General pones:

Código [Seleccionar] Expandir

Option Explicit
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, _
    lpPoint As POINTAPI) As Long
   
Function MouseX(Optional ByVal hWnd As Long) As Long
    Dim lpPoint As POINTAPI
    GetCursorPos lpPoint
    If hWnd Then ScreenToClient hWnd, lpPoint
    MouseX = lpPoint.X
End Function

Function MouseY(Optional ByVal hWnd As Long) As Long
    Dim lpPoint As POINTAPI
    GetCursorPos lpPoint
    If hWnd Then ScreenToClient hWnd, lpPoint
    MouseY = lpPoint.Y
End Function


Nota: este codigo fue sacado de http://www.devx.com/vb2themax/Tip/19124

Ahora en el form_load pones timer1.interval = 10, o el numero q sea, ese va a ser el intervalo de actualizacion. Y en el timer1_timer pones:

Código [Seleccionar] Expandir

Label1.Caption = "X = " & MouseX & "  Y = " & MouseY


Y listo, ahi te saldra.

Saludos

[NYlOn]

No entendi para que usas las funciones =S. Haciendo lo siguiente tambien funciona:

Código [Seleccionar] Expandir


    Dim PT As POINTAPI
    GetCursorPos PT
    Me.Caption = PT.x & "-" & PT.y


Saludos.-

[GroK]

Tienes razon  mucho mas corto, quedaria una cosa asi:

Código [Seleccionar] Expandir

Option Explicit

Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Dim PT As POINTAPI
    GetCursorPos PT
    Label1.Caption = PT.X & "-" & PT.Y
End Sub


Saludos y gracias