VB.Net中按住Shift键时如何编程控制水平滚动条左右滚动？

通用实现逻辑 #

当用户按住Shift键滚动鼠标滚轮时，拦截默认的垂直滚动事件，将滚动偏移量转换为水平滚动的位移。

WinForm 场景实现 #

适用控件：Panel、FlowLayoutPanel等自带滚动条的容器控件 #

1. 先确认目标控件的AutoScroll属性已设置为True
2. 给控件绑定MouseWheel事件，代码如下：

Private Sub ScrollContainer_MouseWheel(sender As Object, e As MouseEventArgs) Handles Panel1.MouseWheel
    ' 检测Shift键是否按下
    If Control.ModifierKeys = Keys.Shift Then
        ' 屏蔽默认垂直滚动行为
        DirectCast(e, HandledMouseEventArgs).Handled = True
        ' 计算滚动偏移量，数值越大滚动速度越快
        Dim offset As Integer = e.Delta \ 120 * 30
        ' 计算合法的新滚动位置，避免超出滚动范围
        Dim newPos As Integer = Panel1.HorizontalScroll.Value - offset
        newPos = Math.Clamp(newPos, Panel1.HorizontalScroll.Minimum, Panel1.HorizontalScroll.Maximum)
        ' 应用新的水平滚动位置
        Panel1.HorizontalScroll.Value = newPos
    End If
End Sub

针对DataGridView控件的适配代码 #

Private Sub DataGridView1_MouseWheel(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseWheel
    If Control.ModifierKeys = Keys.Shift Then
        DirectCast(e, HandledMouseEventArgs).Handled = True
        Dim offset As Integer = e.Delta \ 120 * 30
        Dim newPos As Integer = DataGridView1.HorizontalScrollingOffset - offset
        newPos = Math.Clamp(newPos, 0, DataGridView1.HorizontalScroll.Maximum - DataGridView1.HorizontalScroll.LargeChange + 1)
        DataGridView1.HorizontalScrollingOffset = newPos
    End If
End Sub

WPF 场景实现 #

给目标ScrollViewer控件绑定PreviewMouseWheel事件即可：

Private Sub ScrollViewer_PreviewMouseWheel(sender As Object, e As MouseWheelEventArgs)
    If Keyboard.Modifiers = ModifierKeys.Shift Then
        e.Handled = True
        Dim viewer As ScrollViewer = DirectCast(sender, ScrollViewer)
        ' 单次滚动3行，要调整速度可以替换为PageLeft/PageRight
        If e.Delta > 0 Then
            viewer.LineLeft()
            viewer.LineLeft()
            viewer.LineLeft()
        Else
            viewer.LineRight()
            viewer.LineRight()
            viewer.LineRight()
        End If
    End If
End Sub

注意事项 #

• WinForm中如果需要全局生效，不需要给每个控件单独绑定事件，可以重写窗体的ProcessCmdKey方法统一监听Shift状态，再对当前焦点控件做滚动处理
• 滚动速度可通过修改代码中的偏移系数自行调整

内容的提问来源于stack exchange，提问作者Shruti Katare