标题：求助 Panel1.HorizontalScroll

1楼

jackyfashion 发表于：2022/7/20 12:39:00

老师：您好！

Dim pnl = e.Form.Controls("Panel1").basecontrol

Dim k As Integer = pnl.HorizontalScroll.Value '滚动条的值

msgbox(k)

我要点击滚动条的箭头才能显示 Panel1.HorizontalScroll.Value

我转动鼠标中键，滚动条滚动了，就显示不了Panel1.HorizontalScroll.Value

如果转动鼠标中键，滚动条滚动，就显示Panel1.HorizontalScroll.Value

请教老师，这代码怎样写？

请老师指教！！！

谢谢！！！

2楼

有点蓝 发表于：2022/7/20 13:36:00

看看：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78485&skin=0

3楼

jackyfashion 发表于：2022/7/20 14:49:00

老师：您好！

Dim pnl = e.Form.Controls("Panel1").basecontrol

Dim k As Integer = pnl.HorizontalScroll.Value '滚动条的值

msgbox(k)

鼠标单击滚动条的箭头才会显示滚动条位置的值，

鼠标中键转动，滚动条是可以滚动的，就是显示不了滚动条位置的值，可不可以显示滚动位置的值？

请老师指教！！！

谢谢！！！

4楼

有点蓝 发表于：2022/7/20 15:15:00

我测试没有问题，请上传实例说明

5楼

jackyfashion 发表于：2022/7/20 18:14:00

老师：您好！

Dim pnl = e.Form.Controls("Panel1").basecontrol

Dim k As Integer = pnl.HorizontalScroll.Value '滚动条的值

msgbox(k)

代码没问题

只是用鼠标中键滚轮转动滚动条时，显示不了 pnl.HorizontalScroll.Value，要点击滚动条的箭头才会显示pnl.HorizontalScroll.Value

我想要用鼠标中键滚轮转动滚动条时也显示pnl.HorizontalScroll.Value

6楼

有点蓝 发表于：2022/7/21 8:47:00

请上传实例说明

7楼

jackyfashion 发表于：2023/11/22 22:13:00

老师:您好!

好久没搞这软件!

请教下老师:可不可以用代码点击panel的滚动条的>号?

请老师指教!

谢谢老师!!!

8楼

有点蓝 发表于：2023/11/23 8:39:00

就是设置AutoScrollPosition 呀，

>就是AutoScrollPosition +1，

<就是AutoScrollPosition -1

9楼

jackyfashion 发表于：2023/11/23 23:12:00

谢谢老师!!!

谢谢!!!

共10 条记录, 每页显示 10 条, 页签: [1]