Cómo obtener las coordenadas del ratón en Visual Basic

Ya sea que esté escribiendo el próximo juego de computadora exitoso o creando un programa de dibujo simple, es posible que necesite saber dónde se encuentra el cursor del mouse de un usuario en la pantalla de la computadora. Los desarrolladores de Visual Basic tienen un conjunto integrado de bibliotecas de clases que pueden ayudarles a rastrear dispositivos, como el mouse. Puedes usar una de estas clases para ayudarte a determinar las coordenadas horizontales y verticales de un mouse usando unas pocas líneas de código de Visual Basic.

1.

Inicie Microsoft Visual Studio y abra uno de sus proyectos de Visual Basic.

2.

Haga doble clic en el formulario de inicio de ese proyecto. Visual Studio muestra el formulario en la ventana de diseño.

3.

Arrastre un control del Panel desde la Caja de herramientas al formulario y presione "F4" para mostrar la ventana Propiedades.

4.

Haga clic en el botón "Eventos" en la parte superior de esa ventana y haga doble clic en el botón "Hacer clic". La ventana de código se abre y muestra el método de clic del panel.

5.

Pegue el siguiente código en ese método:

Dim Coordenadas como punto Dim xCoordinate As Int16 Dim yCoordinate As Int16

coordenadas = Panel1.PointToClient (MousePosition) xCoordinate = coordenadas.X yCoordinate = coordenadas.Y

MessageBox.Show (xCoordinate.ToString () + "-" + yCoordinate.ToString ())

La primera declaración crea una nueva variable de punto llamada "coordenadas". El método PointToClient, que se muestra en la línea cuatro, obtiene la posición actual del mouse en relación con el borde superior izquierdo del panel. Reemplace "Panel1" con el nombre de su panel. La variable xCoordinate contiene la posición horizontal y la variable yCoordinate mantiene la posición vertical. La declaración final muestra un cuadro de mensaje que muestra esos dos valores al hacer clic en el panel.

6.

Agregue el siguiente código debajo del código listado en el paso anterior:

coordenadas = Me.PointToClient (MousePosition) xCoordinate = coordenadas.X yCoordinate = coordenadas.Y MessageBox.Show (xCoordinate.ToString () + "-" + yCoordinate.ToString ())

Este código es casi idéntico a las últimas cuatro declaraciones que se muestran en el paso anterior. La primera línea difiere, como se muestra a continuación:

coordenadas = Me.PointToClient (MousePosition)

Esta declaración obtiene la posición actual del mouse en relación con el formulario en lugar del panel. El cuadro de mensaje muestra las coordenadas horizontales y verticales.

7.

Presiona F5 para ejecutar el proyecto. El formulario se abre y muestra el formulario y el panel que contiene. Haga clic dentro del formulario y un cuadro de mensaje muestra las coordenadas horizontales y verticales del punto en el que hizo clic en relación con el borde superior izquierdo del panel.

8.

Presiona "Enter". El cuadro de mensaje se cierra, el código continúa ejecutándose y muestra un segundo cuadro de mensaje. Este cuadro de mensaje muestra las coordenadas relativas al borde superior izquierdo del formulario.

Propina

  • Al programar, use el método de detección del cursor que se adapte a sus objetivos de diseño. En una instancia, solo debe preocuparse por dónde reside el cursor en una imagen, panel u otro control que reside en un formulario. En otro, es posible que necesite saber dónde está el cursor en relación con el borde superior izquierdo del formulario.