Mostrar más instrucciones
llamar a un archivo DLL de código manualmente
1
Descargar el MouseWheelHookA2k libre base de datos y código de ejemplo de el sitio web Holdings Lebans (ver Recursos para el enlace). Extraiga el archivo en una carpeta en el ordenador.
2
Copia y pega el archivo " MouseHook.DLL " en la carpeta con el archivo MDB de Access.
3 < p> Abra la base de datos Access . Buscar y abrir el formulario de " inicio" en la lista de formularios para su base de datos ( Tu forma de inicio puede tener un nombre diferente) .
4 Haga clic en el " Diseño de formularios Herramientas" barra de herramientas y crear un " comando Button "en cualquier lugar en el formulario.
5
Haga clic en el botón de comando y haga clic en la opción" Propiedades " en el menú emergente. Desplácese hasta la opción " clic" y haga doble clic en el campo vacío para abrir el Basic para Aplicaciones ( VBA) de editor
6
Copia Visual y pegue el siguiente código en el editor de VBA: .
' Gire la rueda del ratón Off
blRet Dim As Boolean
blRet = MouseWheelOFF
7
Cierre el editor de VBA.
8
Crear otro " botón de comando " en cualquier otra forma en su base de datos para convertir la rueda de nuevo antes de salir de la base de datos . Escriba el siguiente código detrás del botón de comando en el código " OnClick ":
' Gire la rueda del ratón en
blRet Dim As Boolean
blRet = MouseWheelON
Importación de un módulo en la base de datos Access
9
Descargue la base de datos de ejemplo basMouseHook libre y código del sitio EverythingAccess.com (ver Recursos para el enlace). Guardar la base de datos en una carpeta de su ordenador .
10
Abra la base de datos en Access. Haga clic en la opción "Archivo /Importar" y luego seleccione " Módulos ". Vaya a la carpeta donde guardó la base de datos basMouseHook e importar el módulo de código basMouseHook de la base de datos de la muestra.
11
Abra su forma " de inicio " en la ventana del diseñador de formularios . Haga clic en el formulario, a continuación, haga clic en la opción " Propiedades" en el menú emergente.
12
Desplácese hacia abajo para el procedimiento de evento " OnOpen " y haga doble clic en él para entrar en el editor de VBA .
13
Copia y pega el siguiente código en el procedimiento de evento " OnOpen ":
Private Sub Form_Open ( Cancel As Integer )
MouseHook Static As Object
Set MouseHook = NewMouseHook ( Me) End Sub