Scarica il MouseWheelHookA2k libera database e codice di esempio da il Holdings sito Lebans ( vedi Risorse per il link) . Estrarre il file in una cartella sul computer .
2
Copia e incolla il file " MouseHook.DLL " nella cartella con il file MDB di Access .
3
Aprire il database di Access . Trovare e aprire la maschera " StartUp " nella lista dei moduli per il database ( la forma iniziale potrebbe avere un nome diverso) .
4
Fare clic su " Strumenti di Progettazione Form" barra degli strumenti e creare un " Comando Button " in qualsiasi punto della forma .
5
Fare clic con il pulsante di comando e cliccare l'opzione" Proprietà " dal menu a comparsa. Scorrere verso il basso per l'opzione " OnClick " e fare doppio clic sul campo vuoto per aprire il Visual Basic, Applications Edition (VBA)
6
Copia e incolla il seguente codice nell'editor di VBA : . < Br
' > Ruotare la rotella del mouse Off
Dim blRet come booleano
blRet = MouseWheelOFF
7
Chiudere l'editor VBA .
8
Creare un'altra " Pulsante di comando " su qualsiasi altra forma nel vostro database per girare la rotella di scorrimento indietro prima di chiudere il database . Inserisci il seguente codice dietro il pulsante di comando nel codice " OnClick " :
' Girare la rotellina del mouse su
Dim blRet come booleano
blRet = MouseWheelON
importare un modulo in Access Database
9
scaricare il database di esempio basMouseHook libero e codice dal sito EverythingAccess.com ( vedi Risorse per il link) . Salvare il database in una cartella del computer .
10
Aprire il database in Access . Fare clic sull'opzione "File /Importa" e poi selezionare "Moduli ". Passare alla cartella dove avete salvato il database basMouseHook e importare il modulo di codice basMouseHook dal database di esempio .
11
Aprire il modulo " StartUp " nella finestra di progettazione del form. Pulsante destro del mouse sulla forma , quindi scegliere l'opzione " Proprietà" dal menu a comparsa.
12
Scorrere verso il basso per la routine evento " SuApertura " e fare doppio clic su di esso per entrare nell'editor VBA .
13
Copia e incolla il seguente codice nella routine evento " SuApertura " :
private Sub Form_Open ( Cancel As Integer ) per
MouseHook statico As Object < br
Set> MouseHook = NewMouseHook ( Me ) per
End Sub
software © www.354353.com