lunes, 30 de junio de 2008

8 - Ejemplo

¿Cómo podría obtener la posición del puntero del mouse en coordenadas X, Y y presentarlos en pantalla?

La presentación en pantalla puede ser a través de los objetos etiqueta (Label) o caja de texto (textBox).

Para asignar el contenido de una etiqueta utilice la propiedad Caption:

nombre_Etiqueta.Caption = "valor"

Para asignar el contenido de una caja de texto utilice la propiedad Text:

nombre_CajaTexto.Text = "valor"

¿El movimiento del mouse a que estará relacionado?, puede estar relacionado a la forma en general, y ¿A qué evento debe responder la aplicación?, al movimiento del mouse, es decir, al evento MouseMove de la forma, por default Visual Basic proporciona los argumentos necesarios para operar el evento, entre los cuales se tienen los valores de las coordenadas X,Y de la posición del puntero del mouse, por lo que una solución seria:

 Private Sub Form_MouseMove(Button As Integer, shift As Integer, X As Single, Y As Single)
nombre_Etiqueta.Caption = CStr(X) + ", " + CStr(Y)
nombre_CajaTexto.Text = CStr(X) + ", " + CStr(Y)
End Sub

Al ser valores de tipo numérico X,Y no es posible concatenarlos a un valor de tipo cadena (string), por lo que es necesario utilizar la función Cstr que convierte el valor que recibe en un string.

0 comentarios: