![]() |
|||||||||
|
|
|||||||||
Cursor de la manoUn 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íasEste 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
Código VBANormalmente 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
Descargas |
|||||||||
|
2008 Patxi Sanz Libro de visitas |