方法1，直接在MouseWheel事件中写代码，缺点，每个控件都需要写代码才行. Private Sub cboMacGroup_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles cboMacGroup.MouseWheel
Dim mwe As HandledMouseEventArgs = DirectCast(e, HandledMouseEventArgs)
mwe.Handled = True
End Sub
方法2, 用addHandler为MouseWheel绑定一个处理函数，可以多个控件共用同一个函数，但仍然是每个控件都需要AddHandler 后才生效 AddHandler comboBoxBeingWatched.MouseWheel, AddressOf buttonHandler
Private Sub buttonHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim mwe As HandledMouseEventArgs = DirectCast(e, HandledMouseEventArgs)
mwe.Handled = True
End Sub
方法3: 建一个类，继承ComboBox控件，重写OnMouseWheel函数, 然后项目中全部使用MyComboBox，对于新建的窗体用这个方法最好，但如果项目已经完成，需要逐个替换，也是有点麻烦。
Friend Class MyComboBox
Inherits ComboBox
Protected Overrides Sub OnMouseWheel(ByVal e As MouseEventArgs)
Dim mwe As HandledMouseEventArgs = DirectCast(e, HandledMouseEventArgs)
mwe.Handled = True
End Sub支脚
End Class垃圾焚烧
方法4：类似方法3，新建类继承ComboBox，重写WndProc方法，屏蔽鼠标滑轮滚动消息
双生筷
c#
public class NoScrollCombo : ComboBox
{
[SecurityPermission(SecurityAction.LinkDemand, UnmanagedCode = true)]
protected override void WndProc(ref Message m)
{
if (m.HWnd != this.Handle)
{
return;
}
if (m.Msg == 0x020A) // WM_MOUSEWHEEL
{
return;
}
base.WndProc(ref m);
}
}
vb
Public Class NoScrollCombo
Inherits ComboBox
<SecurityPermission(SecurityAction.LinkDemand, UnmanagedCode := True)>
Protected Overrides Sub WndProc(ByRef m As Message)
If m.HWnd <> Me.Handle Then
Return
End If
If m.Msg = &H20A Then ' WM_MOUSEWHEEL
Return
End If
MyBase.WndProc(m)
End Sub
End Class
方法5：
最后说一下DataGridView中使用ComboBox列时的屏蔽方法:
甘汞电极
涨紧轮Private Sub dgItems_EditingControlShowing(sender As Object, e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgItems.EditingControlShowing
If TypeOf e.Control Is ComboBox Then
Dim cbo As ComboBox = e.Control
AddHandler cbo.MouseWheel, AddressOf disableMouseWheel
End If
End Sub
Private Sub disableMouseWheel(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim mwe As HandledMouseEventArgs = DirectCast(e, HandledMouseEventArgs)
mwe.Handled = True
双蛋合体End Sub
上面提供一些基本思路，可以在此基础上再写一个通用的函数，在窗体内执行一次就行。
思路是遍历窗体所有控件，如果是ComboBox则用addHandler绑定上
面的disableMouseWheel函数，
如果是DataGridView则用addHandler为EditingControlShowing事件绑定一个函数，类似方法5
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议