Access - Cambiar el cursor al pasar sobre una etiqueta

 
Vista:

Cambiar el cursor al pasar sobre una etiqueta

Publicado por Alejandro A. Llerandi (11 intervenciones) el 25/07/2007 15:06:56
Hola, alguien puede decirme cómo se hace para que cuando el cursor pase sobre una determinada etiqueta este deje de ser una flecha y cambie a la tradicional "manito", como si se tratara de un hipervínculo.
Desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Cambiar el cursor al pasar sobre una etiqueta

Publicado por Alejandro (4142 intervenciones) el 16/08/2023 21:53:53
Para cambiar el cursor al pasar sobre una etiqueta en un formulario de Access y que se muestre como la tradicional "manito" (cursor de enlace), puedes utilizar el evento `MouseMove` y cambiar el estilo del cursor mediante código VBA. Aquí tienes cómo hacerlo:

Paso 1: Abrir el editor de código VBA

1. Abre el formulario en modo diseño.

2. Haz doble clic en la etiqueta a la cual deseas aplicar el cambio de cursor. Esto abrirá el editor de código VBA.

Paso 2: Agregar el código VBA

3. Agrega el siguiente código VBA en el evento `MouseMove` de la etiqueta:

1
2
3
Private Sub TuEtiqueta_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.TuEtiqueta.MousePointer = acHyperlinkHand ' Cambia TuEtiqueta al nombre real de tu etiqueta
End Sub

4. Cierra el editor de código VBA y guarda los cambios en el formulario.

Paso 3: Probar el cambio de cursor

1. Cambia a la vista de formulario.

2. Lleva el cursor sobre la etiqueta en el formulario. Deberías ver que el cursor cambia a la "manito", como si se tratara de un hipervínculo.

Recuerda ajustar "TuEtiqueta" al nombre real de la etiqueta en tu formulario. Con este código, el cursor cambiará al estilo de enlace cuando pases sobre la etiqueta, lo que proporciona una experiencia visual similar a la de un hipervínculo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar