Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Stiahnite si bezplatný MouseWheelHookA2k Ukážková databáza a kód od webové stránky Lebans Holdings ( pozri Zdroje na odkaz ) . Extrahujte súbor do priečinka v počítači .
2
Skopírujte a vložte súbor " Mousehook.dll " do zložky so súborom Access MDB .
3
Otvorte databázu programu Access . Nájdite a otvorte formulár " Po spustení " v zozname formulárov pre databázu ( Váš štart forma môže mať iný názov ) .
4
Kliknite na " Form dizajne Nástroje " panel nástrojov a vytvoriť " Command tlačidlo " kdekoľvek na formulári .
5
pravým tlačidlom myši na príkazové tlačidlo a potom kliknite na tlačidlo " Vlastnosti možnosť " pop - up menu . Prejdite nadol na " kliknutie " voľba a dvakrát kliknite na prázdne pole otvorte Visual Basic for Applications ( VBA ) editor
6
Skopírujte a vložte nasledujúci kód do editora VBA : .
" Otočte koliesko na myši Off
Dim blRet As Boolean
blRet = MouseWheelOFF
7
Zatvorte editor VBA .
8
Vytvorte ďalšie " Command Button " na inú formu v databáze otočiť kolieskom späť skôr , ako opustíte databáze . Zadajte nasledujúci kód za príkazového tlačidla v kóde " kliknutí " :
" Otočte koliesko na myši , Na
Dim blRet As Boolean
blRet = MouseWheelON
Import modulu do databázy Access
9
Stiahnite si ukážkové databázy zdarma basMouseHook a kód z EverythingAccess.com stránky ( pozri Zdroje na odkaz ) . Uloženie databázy do priečinka v počítači .
10
Otvorte databázu v programe Access . Kliknite na položku " File /Import " a potom vyberte " Modules " . Prejdite do priečinka , kam ste uložili databáze basMouseHook a importovať do modulu kódu basMouseHook z ukážkovej databázy .
11
Otvorte formulár " Po spustení " v okne formulára návrhára . Kliknite pravým tlačidlom myši na formulár a potom kliknite na tlačidlo " Vlastnosti " voľbu pop - up menu .
12
Prejdite nadol na " OnOpen " udalostnej procedúry a dvakrát kliknite na neho vstúpiť do editora VBA .
13
skopírujte a vložte nasledujúci kód do " OnOpen " procedúru udalosti :
Private Sub Form_Open ( Cancel As Integer )
Statická MouseHook As Object
Nastaviť MouseHook = NewMouseHook ( Me )
End Sub
Copyright © počítačové znalosti Všetky práva vyhradené