从品牌网站建设到网络营销策划,从策略到执行的一站式服务
在代码中加入以下事件代码即可让鼠标滚轮支持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
根据我的经验,应该是PICtureBox没有获取焦点,而win10下不知道什么原因能自动获取焦点,所以凑巧成功了,因此你应该让图形框获取焦点
如:picturebox1.focus()
不知道是不是解决了你的问题
不知道你的具体问题,
不过我认为如果您是用textbox控件,您可能忽略了textbox的scrollbars属性,textbox的scrollbars属性默认是none就是不显示的意思。与mutline值的修改没有关系
你可以在textbox控件的属性里找到scrollbars并修改
scrollbars的值如下:
none:不显示滚动条
Horizontal:显示为水平滚动条
Vertical:显示为垂直滚动条
Both:同时显示垂直滚动条和水平滚动条
希望对您有帮助!
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图