obtener las coordenadas del raton en un form

"Edgar" preguntó:

Mostrar la cita

Alguien me puede ayudar para obtener las coordenadas del ratón

Hola, Edgar:

Como no has expuesto código alguno, ignoro lo que estás ejecutando para
obtener las coordenadas del ratón.

Si deseas obtener las coordenadas cliente del formulario, en el propio
evento «MouseMove» del formulario, prueba a ejecutar algo parecido a lo
siguiente:

Private Sub Form1_MouseMove( ... ) Handles Me.MouseMove

Label1.Text = String.Format("Coordenador del ratón: " & _
"X = {0} , Y = {1}", e.X, e.Y)

End Sub

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Te advierto que si ejecutas el ejemplo, y mueves el ratón con un botón
pulsado, puedes obtener hasta las coordenadas del escritorio de Windows. :-)

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

SoftJaén ha escrito:

Mostrar la cita

"Edgar" preguntó:

> Alguien me puede ayudar para obtener las coordenadas del ratón

Hola, Edgar:

Como no has expuesto código alguno, ignoro lo que estás ejecutando para
obtener las coordenadas del ratón.

Si deseas obtener las coordenadas cliente del formulario, en el propio
evento «MouseMove» del formulario, prueba a ejecutar algo parecido a lo
siguiente:

Private Sub Form1_MouseMove( ... ) Handles Me.MouseMove

Label1.Text = String.Format("Coordenador del ratón: " & _
"X = {0} , Y = {1}", e.X, e.Y)

End Sub

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Hola SoftJaén
Gracias por la informacion si me sirvio es exactamente lo que queria y
como nota las funciones que yo estaba usando son:

Label1.Text = Me.PointToScreen(New Point(e.X, e.Y)).ToString()
Label1.Text = Current.Position.X & Current.Position.Y
Label1.Text = Me.Cursor.Clip.ToString()
Label1.Text = Cursor.Clip.ToString