Shift + 鼠标滚轮水平滚动

Question

使用 shift + 滚轮在水平滚动中很常见。

这两个都相当容易捕捉。 我可以使用带有由 KeyDown、KeyUp 事件设置的标志的 MouseWheel 事件来跟踪按下 shift 键的时间。

但是，我如何实际触发水平滚动？ 我知道 WM_MOUSEHWHEEL，可以用来触发事件吗？

更新：对于System.Windows.Form有一个HScrollProperties类型的HorizontalScroll属性。 您可以操作该对象上的Value属性来更改水平滚动条的位置。 但是，到目前为止，我还没有发现该对象可用的任何其他控件。

Answer 1

如果您要创建自己的从UserControl或ScrollControl或Form派生的UserControl ，您可以使用这个简单的解决方案：

protected override void OnMouseWheel(MouseEventArgs e)
{
    if (this.VScroll && (Control.ModifierKeys & Keys.Shift) == Keys.Shift)
    {
        this.VScroll = false;
        base.OnMouseWheel(e);
        this.VScroll = true;
    }
    else
    {
        base.OnMouseWheel(e);
    }
}

解释

如果控件具有AutoScroll并显示滚动条，当您滚动鼠标滚轮时，您将获得以下行为：

1. 如果没有启用滚动条，它什么都不做。
2. 如果仅启用垂直滚动条，则滚动垂直滚动条。
3. 如果仅启用水平滚动条，则滚动水平滚动条。
4. 如果同时启用垂直和水平滚动条，它会滚动垂直滚动条。

注意到这种行为，我想出了这个 hack 来覆盖控件的OnMouseWheel ，然后如果启用垂直滚动条并按住 Shift ，它会在调用base.OnMouseWheel之前禁用垂直滚动条。 这将欺骗控件滚动水平滚动条（如上所示的行为 3）。

Answer 2

在您的设计器文件中，您需要手动添加一个 MouseWheel 事件委托。

this.richTextBox.MouseWheel += new System.Windows.Forms.MouseEventHandler(this.RichTextBox_MouseWheel);

然后，在后面的代码中，您可以添加以下内容。

private const int WM_SCROLL = 276; // Horizontal scroll 
private const int SB_LINELEFT = 0; // Scrolls one cell left 
private const int SB_LINERIGHT = 1; // Scrolls one line right

[DllImport("user32.dll", CharSet = CharSet.Auto)]
private static extern int SendMessage(IntPtr hWnd, int wMsg, IntPtr wParam, IntPtr lParam); 

private void RichTextBox_MouseWheel(object sender, MouseEventArgs e)
{
    if (ModifierKeys == Keys.Shift)
    {
        var direction = e.Delta > 0 ? SB_LINELEFT : SB_LINERIGHT;

        SendMessage(this.richTextBox.Handle, WM_SCROLL, (IntPtr)direction, IntPtr.Zero);
    }
}

有关 const 值的更多信息，请参阅以下 SO： 如何以编程方式滚动 winforms datagridview 控件？

更新

如果可能，请使用Alvin 的解决方案。 好多了

Answer 3

与 VB.NET 中 xixonia 提供的代码相同

Private Const WM_SCROLL As Integer = 276 
Private Const SB_LINELEFT As Integer = 0 
Private Const SB_LINERIGHT As Integer = 1

<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
Private Shared Function SendMessage(hWnd As IntPtr, 
                                    wMsg As UInteger,
                                    wParam As IntPtr, 
                                    lParam As IntPtr) As Integer
End Function

Private Sub RichTextBox_MouseWheel(sender As Object, e As MouseEventArgs) Handles RichTextBox1.MouseWheel

  If ModifierKeys = Keys.Shift Then
    Dim direction = If(e.Delta > 0, SB_LINELEFT, SB_LINERIGHT)
    SendMessage(Me.RichTextBox1.Handle, WM_SCROLL, CType(direction, IntPtr), IntPtr.Zero)
  End If
End Sub