如何在.Net下控件不响应鼠标滚轮动作

 在VB6.0时代，VB还不是内嵌支持鼠标滚轮，需要用API将鼠标的WM_MOUSEWHEEL消息发送到控件上来响应滚动事件。这要做通常麻烦，而且代码不容易控制。

     今天我在.Net下研究，发现.Net的控件本身已经支持了MouseWheel事件。但是，又有了问题，既然默认可以响应鼠标滚轮事件了，那我如果我想禁用就比较麻烦了，也就是使控件对鼠标滚轮滚动不作响应。差了MSDN，其实微软早就设计好了一个类 HandledMouseEventArgs ，定义如下

 

Public Class HandledMouseEventArgs

          Inherits System.Windows.Forms.MouseEventArgs

     成员属于: System.Windows.Forms

摘要:

允许自定义控件防止将 System.Windows.Forms.Control.MouseWheel 事件发送到它的父容器。

     这个类继承于MouseEventArgs，也就是我可以将鼠标事件响应的参数 e 赋予它，然后有这个类的对象来将事件句柄禁用。示例代码如下：

 

  Private Sub Form1_MouseWheel( _

ByVal sender As Object, _

ByVal e As System.Windows.Forms.MouseEventArgs) _

Handles Me.MouseWheel

     Dim wm As HandledMouseEventArgs = e

     wm.Handled = True

  End Sub