Kill the mouse wheel

[Amr Al-Amir]

I have a form with Autoscroll = true

When I scroll the mouse wheel and the focus is on a button or textbox, it is OK
But when the focus is on a control like combobox or a listview (any control having its own scrollbar) no scrolling at the form level occur

I want to kill the mouse wheel message sent to the combobox and send it back to the form.

In VB6 I ve done it using subclassing. Should I do the same (I think using System.Windows.Forms.Form.WndProc) or is there a better way.

and if this is the case, is there something like an Enum listing messages?

[RobDog888]

Sure you can cancel out the message WM_MOUSEWHEEL when the combo box is focused.

Yes, you do use the WndProc overrides

[Amr Al-Amir]

OK, where can I find the values for such messages?

[RobDog888]

In the WndProc overrides procedure like in post #2.

Just define your constant and place the code behind the form in question

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
	Select Case m.Msg
		Case WM_MOUSEWHEEL 
			'Do your stuff here or cancel it by exiting the sub
		Case Else
			'
	End Select
	MyBase.WndProc(m)
End Sub

[VBDT]

Rub I don't think it will work. I think the message is already in the message queue when WndProc gets the message. I guess it should be handled low-level.

Another option would be using mouse hook. Check Global Hooks in my signature. Use it to hook the mouse and use this code below.

Private Sub gmh_MouseWheel(ByVal sender As System.IntPtr, ByVal e As WindowsHookLib.LLMouseEventArgs) Handles gmh.MouseWheel
    If Me.ComboBox1.Focused Then
        e.Handled = True
    End If
End Sub

[Amr Al-Amir]

In post #3 I asked about the value of the WM_MOUSEWHEEL constant, where can I find these values e.g.

Public Const WM_MOUSEWHEEL As Integer = ??

Is there a place of such values?

[RobDog888]

You can get API utilities like the API Viewer utility (link in my signature) or also at pinvoke.net for another.

Private Const WM_MOUSEWHEEL As Int32 = &H20A