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 鼠标滚轮问题
根据我的经验,应该是PICtureBox没有获取焦点,而win10下不知道什么原因能自动获取焦点,所以凑巧成功了,因此你应该让图形框获取焦点
如:picturebox1.focus()
不知道是不是解决了你的问题
vb.net 编写一个记事本 怎么使滚动条响应 mutline设为多行了的
不知道你的具体问题,
不过我认为如果您是用textbox控件,您可能忽略了textbox的scrollbars属性,textbox的scrollbars属性默认是none就是不显示的意思。与mutline值的修改没有关系
你可以在textbox控件的属性里找到scrollbars并修改
scrollbars的值如下:
none:不显示滚动条
Horizontal:显示为水平滚动条
Vertical:显示为垂直滚动条
Both:同时显示垂直滚动条和水平滚动条
希望对您有帮助!
文章标题:关于vbnet滚轮值的信息
当前链接:http://scgulin.cn/article/hdpsop.html