Pasa Programación, apuntes y soluciones con Access
Página principal Mis apuntes de Access Mis utilidades Mis ejemplos Mis agradecimientos Enlaces a otras Webs

Cursor de la mano

Un módulo de VBA con 2 funciones para mostrar y ocultar el cursor de la mano. Muchas veces nos sirve el truco de establecer la propiedad Hipervínculo del control al formulario que contiene ese control, pero hay ocasiones en las que no podemos usar esta propiedad, ya sea porque el control no dispone de ella, o porque nos dará un error, al encontrarse el formulario fuera de la base de datos cargada en Access. Para estas situaciones, se puede recurrir a la API de Windows y establecer manualmente el cursor de la mano. Esto es lo que hacen las funciones que hay en el módulo VBA de la base de datos que puedes descargar al final de esta página.


En el archivo se encuentra también una base de datos de ejemplo, para ver el funcionamiento de las funciones.

Garantías

Este archivo se entrega "tal cual", sin garantías de ninguna clase: guarda tu trabajo y haz copias de seguridad antes de probar la librería. A mí me ha funcionado, pero nunca se sabe.

Uso

  1. Descargar el archivo comprimido.
  2. Abre la base de datos Access de ejemplo.
  3. Ve a la pestaña Módulos.
  4. Exporta el módulo mdlHandCursor a la base de datos donde quieras usarlo.
  5. En tu base de datos, usa las funciones en los controles que desees. Normalmente se usarán en los eventos Al mover el ratón, para mostrar o no el cursor de la mano.

Código VBA

Normalmente podrás llamar directamente a las funciones en el evento Al mover el ratón de los controles que desees:

=SetHandCursor()
=SetDefaultCursor()

Aunque puedes usar código, si lo deseas:

Private Sub NombreDelControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call SetHandCursor()
End Sub

O controlar el cursor que hay actualmente, para no llamar continuamente a la función:

Private Sub NombreDelControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Screen.MousePointer = 0 Then SetHandCursor()
End Sub

Revisiones

Fecha

Versión

Descripción

25/11/2007

1.0

Creación del módulo.

30/01/2008

1.0

Se agrega una base de datos de ejemplo al archivo.

Descargas

Descarga la utilidad (versión Access 2000) - 14 Kb.

2008 Patxi Sanz
Libro de visitas
Hosted by www.Geocities.ws

1