Leban's MouseWheelHook & vertical scroll bars

[Guest]

I’m using Leban’s MouseWheelHookA2K method to prevent users from using the
mouse wheel to scroll through records
(http://www.lebans.com/mousewheelonoff.htm).

Using a module and the following code in the On Load event of the main form,
the mouse wheel is disabled for all forms and subforms . . .

' Turn the MouseWheel Off
Dim blRet As Boolean
' Call our MouseHook function in the MouseHook dll.
blRet = MouseWheelOFF(False)

.. . . *except* when the subform has a vertical scroll bar. If the subform
has a vertical scroll bar, the mouse wheel still works, despite the code.

How can I disable the mouse wheel on forms with a vertical scroll bar?

Thanks.

Kurt

 

[Stephen Lebans]

I produced an update to the DLL last August that contains an optional
param for the calling function to allow you to disable the MouseWheel
for SubForms completely. I just never found the time to complete Beta
testing properly.
If you go to my Web site and leave feedback on this is issue and your
Email address I will send you the latest MouseHook DLL.
http://www.lebans.com/feedback.htm

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.