更改鼠标滚轮滚动线？

Question

我有一个带有自动滚动功能的面板，我需要更改鼠标滚动行数

我的意思是：

（西班牙语鼠标属性，抱歉）

但我会在我的程序中为我的面板更改它，obvius，而不是在 SO！

PS：例如 Winamp 媒体播放器有一个选项。

我在任何地方都找不到信息，请帮忙。

更新

我的滚动条是一个带有“AutoScroll”属性的面板

我的活动是这样的：

    Private Sub Panel1_MouseScroll(sender As Object, e As MouseEventArgs) Handles Panel1.MouseWheel

    Panel1.Invalidate()

    End Sub

这是我的面板的内容：

  ' Checkbox drawing
Public Sub updatecheckboxes()
    ' delete the old checkboxes
    Panel1.Controls.Clear()
    ' create the new checkboxes
    Dim filesystem = CreateObject("Scripting.FileSystemObject")
    Dim ThisDir = filesystem.GetFolder(My.Settings.folderpath)
    Dim i As Int32 = 0
    Dim pos As Int32 = 10
    For Each folder In ThisDir.Subfolders
        Array.Resize(mcheck, i + 1)
        mcheck(i) = New CheckBox
        With mcheck(i)
            .AutoSize = True
            .Location = New Point(10, pos)
            .Name = "CheckBox" & i + 1
            .Text = folder.Name
        End With
        Me.Panel1.Controls.Add(mcheck(i))
        AddHandler mcheck(i).CheckedChanged, AddressOf LlamadaCheckBox
        i += 1
        pos += 20
    Next

End Sub

由于面板内的失真效果，我想更改滚动行数，如果我像 Windows SO 属性的图像那样使用“一个 scoll 页”或“一次滚动 10 个”，那么我可以修复它！

Answer 1

MouseEventArgs 对象有一个属性Delta 来确定鼠标滚轮的滚动量。此外，还有SystemInformation.MouseWheelScrollLines。有一个名为 WHEEL_DELTA = 120 的电流常量，它反映了每个鼠标滚轮滴答声添加的增量。

所以一个好的定义是：

Dim numberOfTextLinesToMove As Integer = CInt(e.Delta * SystemInformation.MouseWheelScrollLines / 120)

来源：Control.MouseWheel Event on MSDN

Answer 2

无论SystemInformation.MouseWheelScrollLines 中的内容如何，​​您都可以使用SendMessage 滚动任意行数。 MouseWheel event does not occur for a Panel。所以我在 TextBox 上进行了测试：

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
               (ByVal handle As IntPtr, ByVal wMsg As Integer,
                ByVal wParam As Integer, ByVal lParam As Integer) As Integer

向上滚动一行：

SendMessage(TextBox1.Handle, &HB6, 0, -1)

向下滚动一行：

SendMessage(TextBox1.Handle, &HB6, 0, 1)

最后一个参数是行数，符号表示方向。负 - 上，正 - 下。

您应该能够覆盖/抑制鼠标滚轮处理并插入这两个语句，具体取决于传递的 delta 值的符号。

Answer 3

您可以查看 MouseWheel 事件的 MSDN 示例。他们建议像这样，您可以通过将 SystemInformation.MouseWheelScrollLines 替换为您要滚动的行数来更改更改的数量。

来自链接：

Private Sub panel1_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles panel1.MouseWheel
        ' Update the drawing based upon the mouse wheel scrolling. 
    Dim numberOfTextLinesToMove As Integer = CInt(e.Delta * SystemInformation.MouseWheelScrollLines / 120)
    Dim numberOfPixelsToMove As Integer = numberOfTextLinesToMove * fontSize

    If numberOfPixelsToMove <> 0 The
        Dim translateMatrix As New System.Drawing.Drawing2D.Matrix()
        translateMatrix.Translate(0, numberOfPixelsToMove)
        mousePath.Transform(translateMatrix)
    End If
    panel1.Invalidate()
End Sub

---

另一个例子：

我关闭 AutoScroll 是因为它似乎想至少给你一个最小的系统滚动线。我不得不进行一些检查，以防止不断滚动通过范围。试试看它是否适合你。

Private Sub panel1_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseWheel
    Dim numberOfTextLinesToMove As Integer = CInt(e.Delta * 20 / 120)
    Dim numberOfPixelsToMove As Integer = numberOfTextLinesToMove * mcheck(0).Font.Size

    If numberOfPixelsToMove <> 0 Then
        If (numberOfPixelsToMove > 0) Then
            If (mcheck(0).Top >= 0) Then Exit Sub
        Else
            If (mcheck(mcheck.Length - 1).Top) <= Panel1.Height Then Exit Sub
        End If

        TranslateCheckboxes(numberOfPixelsToMove)
    Else
        Exit Sub
    End If
    Panel1.Invalidate()
End Sub

Private Sub TranslateCheckboxes(pixels As Integer)
    For x = 0 To mcheck.Length - 1
        mcheck(x).Top += pixels
    Next
End Sub