shift + 滚轮的使用在水平滚动中相当普遍。
这两者都相当容易捕捉。我可以使用带有由 KeyDown、KeyUp 事件设置的标志的 MouseWheel 事件来跟踪按下 shift 键的时间。
但是，我如何真正触发水平滚动？我知道 WM_MOUSEHWHEEL，可以用来触发事件吗？
更新：
对于System.Windows.Form，有一个HorizontalScroll 属性，其类型为HScrollProperties。您可以操作该对象上的Value 属性来更改水平滚动条的位置。但是，到目前为止，我还没有发现可以使用该对象的任何其他控件。
【问题讨论】：
在您的设计器文件中，您需要手动添加 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：How do I programmatically scroll a winforms datagridview control?
如果可能，请使用Alvin's solution。 好多了。
【讨论】：
与 xixonia 在 VB.NET 中提供的代码相同
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
【讨论】：
如果您要创建自己的源自UserControl 或ScrollControl 或Form 的控件，您可以使用这个简单的解决方案：
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 并且正在显示滚动条，当您滚动鼠标滚轮时，您将获得以下行为：
注意到这种行为，我想出了这个 hack 来覆盖控件的OnMouseWheel，然后如果启用垂直滚动条并按住 Shift，它会在调用 @987654327 之前禁用垂直滚动条@。这将欺骗控件滚动水平滚动条（如上所示的行为 3）。
【讨论】：