鼠标滚轮事件

Question

我的格式为vertical scroll bar，我想使用鼠标滚轮向上和向下滚动表单，但我似乎无法启动mousewheel event。

我只使用标准mousewheel事件

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

'code here

End Sub

任何帮助都将不胜感激。

Answer 1

尝试将Panel设置为Form设置为AutoScroll = true，Dock = Fill，然后从Panel所有控件设置为TextBox }，label，listView等。

  Private Sub Panel1_MouseEnter(sender As System.Object, e As System.EventArgs) Handles Panel1.MouseEnter
        Panel1.Focus()
  End Sub

  Private Sub Panel1_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseWheel
        MessageBox.Show("okay")
  End Sub