p2p.wrox.com Forums

Need to download code?

View our list of code downloads.


  Return to Index  

access thread: Disable Mouse Scroll Wheel


Message #1 by "Stephen Birnie" <beelzebubs_offspring@h...> on Tue, 18 Jun 2002 14:31:27
Does anyone know the code to disable the Mouse Scroll Wheel please? Is 
there a keycode for this operation? I've disabled the PageUp and PageDown 
keys to stop the possibility of changing records on a form, but I cannot 
work out how to disable the mouse wheel. This is what I have so far....

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
         Select Case KeyCode
            Case 33, 34
               KeyCode = 0
         End Select
End Sub

If anyone can help I would be most grateful as it's doing my head in now.

Stephen
Message #2 by "Derrick Flores" <Derrick_Flores@s...> on Tue, 18 Jun 2002 08:31:49 -0500
Stephen,
  You can refer to the Microsoft Knowledge Base to answer your problem.  
here's the url
http://support.microsoft.com/default.aspx?scid=3Dkb;en-us;Q308636
Hint: You need MS VB to create a dynamic library.

Good Luck,
Derrick Flores
Sony Semiconductor
San Antonio, TX


>>> "Stephen Birnie" <beelzebubs_offspring@h...> 06/18 2:31 PM >>>
Does anyone know the code to disable the Mouse Scroll Wheel please? Is
there a keycode for this operation? I've disabled the PageUp and 
PageDown
keys to stop the possibility of changing records on a form, but I 
cannot
work out how to disable the mouse wheel. This is what I have so far....

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
         Select Case KeyCode
            Case 33, 34
               KeyCode =3D 0
         End Select
End Sub

If anyone can help I would be most grateful as it's doing my head in now.

Stephen

Message #3 by "Stephen Birnie" <beelzebubs_offspring@h...> on Tue, 18 Jun 2002 17:00:44
> Thanks for your help Derrick, unfortunately I'm still having problems. I 
do not have MS VB to create a dynamic library. I followed the instructions 
for creating the MouseWheel Event from within Microsoft Access to the 
letter, but I am getting a Form_Load error when opening the form. I'll 
keep trying but if you have any ideas they would be appreciated.

Stephen




Stephen,
  You can refer to the Microsoft Knowledge Base to answer your problem.  
here's the url
http://support.microsoft.com/default.aspx?scid=3Dkb;en-us;Q308636
Hint: You need MS VB to create a dynamic library.

Good Luck,
Derrick Flores
Sony Semiconductor
San Antonio, TX


>>> "Stephen Birnie" <beelzebubs_offspring@h...> 06/18 2:31 PM >>>
Does anyone know the code to disable the Mouse Scroll Wheel please? Is
there a keycode for this operation? I've disabled the PageUp and 
PageDown
keys to stop the possibility of changing records on a form, but I 
cannot
work out how to disable the mouse wheel. This is what I have so far....

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
         Select Case KeyCode
            Case 33, 34
               KeyCode =3D 0
         End Select
End Sub

If anyone can help I would be most grateful as it's doing my head in now.

Stephen


  Return to Index