vb.net中通过继承 ComboBox控件类，重写OnMouseWheel事件处理方法，设置其为Nothing，使该事件处理无效

在VB.NET中，如果你想要从ComboBox控件类继承并禁用`OnMouseWheel`事件处理，首先你需要创建一个新的类，让这个新类继承自ComboBox。然后，你可以找到`OnMouseWheel`事件并在你的类中重写它，将它的事件处理器设为`Nothing`，就像这样：

Public Class MyComboBox Inherits ComboBox
    ' 在这里重写 OnMouseWheel 方法
    Protected Overrides Sub OnMouseWheel(sender As Object, e As MouseEventArgs)
        ' 设置事件处理器为空，使其失效
        RaiseEvent MouseWheel(Me, e) ' 或者直接赋值为 Nothing: Me.MouseWheel -= AddressOf MyBase.OnMouseWheel
    End Sub
End Class

当你创建MyComboBox对象时，系统就不会再执行原始的鼠标滚轮事件处理逻辑了。但是要注意的是，这种方式只是阻止了默认的行为，并不会阻止用户手动触发这个事件。

相关问题

vb.net中通过继承 ComboBox控件类，如何禁用鼠标滚轮mousewheel事件或重写Mousewheel事件使Mousewheel无效

在VB.NET中，如果你想要继承ComboBox控件并且禁用或重写其`MouseWheel`事件，你可以按照以下步骤操作：

1. 首先，创建一个新的类，让它继承自`System.Windows.Forms.ComboBox`类。例如：

Public Class CustomComboBox Inherits ComboBox

2. 然后，在新类中，你可以重写`OnMouseWheel`事件处理方法，并设置其为`Nothing`或`Throw New NotImplementedException()`，这将使该事件默认失效。这样做是为了阻止事件的传递：

Protected Overrides Sub OnMouseWheel(e As MouseEventArgs)
    ' 或者直接设置为 Nothing
    RaiseEvent MouseWheel(Me, e)
End Sub

或者

Protected Overrides Sub OnMouseWheel(e As MouseEventArgs)
    Throw New NotImplementedException()
End Sub

3. 如果你想完全禁止这个事件，可以覆盖`CanRaiseEvents`属性，将其设置为`False`，使得事件无法被触发：

Protected Overrides ReadOnly Property CanRaiseEvents As Boolean
    Get
        Return False
    End Get
End Property

4. 使用你的`CustomComboBox`实例替代原生的`ComboBox`即可。