vb.net - NumericUpDown 上的 MouseWheel 事件

Question

我只是找到一种根据表单字体大小调整表单(winforms)大小的方法。
为此，我在表单的 MouseWheel 事件处理程序中制定了例程:

Private Sub myfrm_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel

     If controlpressed Then
        fs = Me.Font.Size
        If e.Delta < 0 Then
            If fs < 16 Then fs += 1
        Else
            If fs > 8 Then fs -= 1
        End If
        Me.Font = New Font("Arial", fs, FontStyle.Regular, GraphicsUnit.Point)
    End If

如果按下控制键，则会使用 MouseWheel 调整表单大小，类似于浏览器的行为。
当用户看不清并且显示器分辨率很高时，这非常有用。

但问题出在 NumericUpDown 控件上。它们从表单捕获鼠标滚轮事件，并且不会像文本框那样调整大小。我将“增量”属性设置为 0 但这没有帮助。

这里有什么方法可以告诉 NumericUpDown 控件它们不会捕获鼠标滚轮事件，这样我就不需要在鼠标滚轮处理程序中为表单上的每个 NumericUpDown 控件执行一些特殊代码吗？

编辑:根据 Cody Gray 的简短教程，我给出了为 winforms 应用“缩放”功能的完成代码。

启动表单的 _Load 事件处理程序:

Application.AddMessageFilter(New MouseWheelMessageFilter())

类(class):

Public Class MouseWheelMessageFilter
Implements IMessageFilter
Public Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
    Const WM_MOUSEWHEEL As Integer = &H20A
    If m.Msg = WM_MOUSEWHEEL And My.Computer.Keyboard.CtrlKeyDown Then
        If Form.ActiveForm IsNot Nothing Then
            Try 'this solves too fast wheeling
                Dim delta As Integer = m.WParam.ToInt32() >> 16
                Dim fs As Single = Form.ActiveForm.Font.Size
                If delta < 0 Then
                    If fs < 16 Then fs += CSng(0.25)
                Else
                    If fs > 8 Then fs -= CSng(0.25)
                End If
                Form.ActiveForm.Font = New Font("Microsoft Sans Serif", fs!, FontStyle.Regular, GraphicsUnit.Point)
            Catch
            End Try
        End If
        Return True
    End If
    Return False
End Function
End Class

这适用于项目中的所有表单。出乎意料的好用!

注意，为了在调整文本框大小时获得完整的缩放效果，因此需要打开 form.Designer 文件并删除每个控件的“.font”属性。然后字体将从表单继承。

Answer 1

你有一个更大的问题，不仅仅是NUD捕获了MouseWheel事件。对于许多用户来说，处理 Windows 消息的方式是不寻常且不直观的:

• 无论鼠标光标位于何处，Windows 都会向具有焦点的控件发送 WM_MOUSEWHEEL 消息。这让许多用户和程序员感到困惑，他们习惯了在浏览器或 Word 等不使用任何控件的程序上滚动的工作方式。无论鼠标位于何处，滚轮始终会滚动页面的程序。

• 发生的下一个不寻常的事情是消息冒泡，如果具有焦点的控件不处理该消息，则该消息将传递给其父级。如果父级不处理它，那么它将传递给父级的父级。等等。这就是为什么表单的 MouseWheel 事件会触发，即使表单从未获得焦点。消息冒泡在 Windows 上非常不寻常，因此在 Winforms 中也是如此。但在浏览器或 WPF 这样的 GUI 类库中并不罕见。

这解释了为什么 NUD 会吃掉这条消息，它有一个旋转的用途。您还没有遇到其他问题，当您在表单上放置任何派生自 ScrollableControl 的控件(如 NumericUpDown、Panel、UserControl、SplitContainer、PropertyGrid 或 ToolStrip)时，您的程序也会出现错误行为。或者当控件自然需要滚动时，例如 TreeView、ListView、TrackBar、RichTextBox、多行 TextBox。

这在 Winforms 中是完全可以解决的，冒着破坏所有其他控件的预期行为的风险，您可以在 WM_MOUSEWHEEL 消息到达具有焦点的控件之前拦截它，并将其传递给您的表单。您可以通过在表单中​​实现 IMessageFilter 来实现此目的。您可以在my answer here中找到示例代码。 .

<小时/>

更新:请注意 Windows 10 中的新行为，它现在具有“当我将鼠标悬停在非事件窗口上时滚动它们”选项，并且默认情况下该选项处于打开状态。这会导致鼠标滚轮消息被发送到悬停的控件而不是具有焦点的控件。很少有用户会关闭它，这使得使用鼠标滚轮更加直观。