You should be using the latest version of the MouseHook windows DLL not
the older MouseWheel class solution.
http://www.lebans.com/mousewheelonoff.htm
New Version 2.3 Feb 26 2004
Please note this is an update from the Feb 23/04 release. Support has
now been added for Logitech Mice. The only difference between the
feature set for a MS Mouse and a Logitech Mouse is that you can scroll
an open Combo control from a MS Mouse only. Look at the code behind the
sample Forms to see how to turn the MouseWheel ON or Off. You need to
import into your own MDB the standard code module "modMouseHook" found
in the sample MDB included in the download zip file.
MouseWheelHook97.zip is an MDB demonstrating how to use a MouseHook to
turn off the MouseWheel. No more MouseWheel.DLL Hell! No DLL
registration required. The MouseHook DLL is a standard Windows DLL. Do
not try to Register it or set a Reference to it from within Access.
Just copy the included MouseHook.DLL into your Windows/System folder or
into the same folder as your application MDB. One instance handles all
Forms and SubForms so only call the functions once from a SINGLE Form.
Here is an A2K sample MDB including the DLL. MouseWheelHookA2K.zip .
Please note there is no difference between the MouseHook.DLL included in
either the A97 or A2K ZIP file.
Here is sample code that can be placed behind CommandButton controls.
You could also place this code in the Load event of a single Form.
Remember you need to call these functions only ONE TIME. The MouseHook
will look after the MouseWheel messages for all forms that you have open
now or at any time during your current session. Remember to turn the
MouseWheel back on before you exit the current session!
Private Sub Command14_Click()
' Turn the MouseWheel Off
Dim blRet As Boolean
blRet = MouseWheelOFF
End Sub
Private Sub Command16_Click()
' Turn the MouseWheel On
Dim blRet As Boolean
blRet = MouseWheelON
End Sub
--
HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Ima Lostsoul" <me@myprovider.com> wrote in message
news:MP************************@netnews.comcast.ne t...
Anyone have a simple way to disbale the wheel on a wheel mouse in
Access Apps? I have tried the Lebans code and it does not work for my
application.
