vb.net获得滚轮 vb滚动条的取值范围怎么设置

vb.net 鼠标滚轮问题

根据我的经验，应该是PICtureBox没有获取焦点，而win10下不知道什么原因能自动获取焦点，所以凑巧成功了，因此你应该让图形框获取焦点

如：picturebox1.focus（）

不知道是不是解决了你的问题

相关问答

Q1: vb.net中如何添加滚动条，像在VB6中那样的。不是窗体本身的滚动条

建立滚动条的方法如下：

（1）将鼠标移到ToolBox内的WinForm标签页的HscrollBar控件上，单击鼠标左键。

（2）将指针移至窗体中适当的位置，按住鼠标左键并拖动鼠标将HscrollBar控件调整到合适的大小放开左键。

（3）同样，再在Form上设置一个VscrollBar控件。

Q2: vb.net panel的vscroll的滑轮事件

点击panel时得到panel的焦点，就可以用鼠标滚轮来控制滚动条了！代码如下：

    Private Sub Panel1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.Click

        Panel1.Focus()

    End Sub

Q3: VB的滚轮事件

vb 中, 好象处理滚轮是比较痛苦vb.net获得滚轮的, 我以前是这样做的, 用api将你要处理滚轮的对象的句柄（也就是消息的处理过程）转到你自定义的过程中vb.net获得滚轮，判断用户是否按了滚轮，如果没有，就继续用这个控件的消息处理过程。

做起来比较复杂，如果你是初学者，估计是很痛苦的了。推荐你使用vb.net ，vb.net中处理各种消息容易得多，而且也很容易用自己的过程去代替系统的各种消息处理过程，也安全，不容易出错。

Q4: vb.net 中窗体上添加一个VScrollBar，怎么样才能使，鼠标中轴滚动，VScrollBar也跟着滚动

在代码中加入以下事件代码即可让鼠标滚轮支持VScrollBar：

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

If e.Delta = 120 Then

If VScrollBar1.Value - VScrollBar1.SmallChange = 0 Then

VScrollBar1.Value -= VScrollBar1.SmallChange

ElseIf VScrollBar1.Value - 1 = 0 Then

VScrollBar1.Value -= 1

End If

Else

If VScrollBar1.Value + VScrollBar1.SmallChange = VScrollBar1.Maximum Then

VScrollBar1.Value += VScrollBar1.SmallChange

ElseIf VScrollBar1.Value + 1 = VScrollBar1.Maximum Then

VScrollBar1.Value += 1

End If

End If

End Sub

vb.net获得滚轮的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb滚动条的取值范围怎么设置、vb.net获得滚轮的信息别忘了在本站进行查找喔。