 |
 |
 |
 |
 |
 |
Cursores de Windows
Con 3 funciones de la API de Windows, podemos ser capaces de mostrar los cursores de Windows que no nos permite el objeto Screen o, incluso, cargar nuestros propios cursores. Si en la utilidad Cursor de la mano podíamos cargar el cursor de la manita de Internet, con estas API's podemos cargar este cursor, cualquier otro cursor de los que podemos llamar predefinidos de Windows, e, incluso, cursores que se encuentran en archivos .ani o .cur.
En el archivo se encuentra una base de datos con las llamadas a la API y un formulario de ejemplo, para ver el funcionamiento de las funciones.
Otras cosillas que tiene la utilidad son las siguientes:
- Otra llamada a la API de Windows para buscar archivos en las distintas unidades.
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
- Descargar el archivo comprimido.
- Abre la base de datos Access de ejemplo.
- Ve a la pestaña Módulos.
- Exporta el módulo mdlCursors a la base de datos donde quieras usarlo.
- 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 deseado.
Código VBA
'Podemos mostrar un cursor de los precargados de Windows
Call ChangeCursor(psCursorHand)
End Sub
Private Sub OtroControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'O podemos mostrar un cursor a partir de un archivo .cur o .ani
Call UserCursor("C:\Windows\Cursors\horse.ani")
End Sub
Revisiones
Fecha |
Versión |
Descripción |
27/04/2008 |
1.0 |
Creación de la utilidad. |
Descargas
Libro de visitas