以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 Panel1.HorizontalScroll  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178778)

--  作者:jackyfashion
--  发布时间:2022/7/20 12:39:00
--  求助 Panel1.HorizontalScroll
老师: 您 好!
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 
请教老师,这代码怎样写?
请老师指教!!!
谢谢!!!

--  作者:有点蓝
--  发布时间:2022/7/20 13:36:00
--  
看看:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78485&skin=0
--  作者:客人
--  发布时间:2022/7/20 14:17:00
--  
谢谢老师!

我看不懂。
谢谢!!!

--  作者:jackyfashion
--  发布时间:2022/7/20 14:49:00
--  
老师: 您好!
Dim pnl  = e.Form.Controls("Panel1").basecontrol
Dim k As Integer = pnl.HorizontalScroll.Value \'滚动条的值
msgbox(k)
鼠标单击滚动条的箭头才会显示滚动条位置的值,
鼠标中键转动,滚动条是可以滚动的,就是显示不了滚动条位置的值,可不可以显示滚动位置的值?
请老师指教!!!
谢谢!!!



--  作者:有点蓝
--  发布时间:2022/7/20 15:15:00
--  
我测试没有问题,请上传实例说明
--  作者: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

--  作者:有点蓝
--  发布时间:2022/7/21 8:47:00
--  
请上传实例说明
--  作者:jackyfashion
--  发布时间:2023/11/22 22:13:00
--  
老师:您 好!
好久没搞这软件!
请教下老师:可不可以用代码点击panel的滚动条的>号?
请老师指教! 
谢谢老师!!!

--  作者:有点蓝
--  发布时间:2023/11/23 8:39:00
--  
就是设置AutoScrollPosition 呀,

>就是AutoScrollPosition +1,
<就是AutoScrollPosition -1

--  作者:jackyfashion
--  发布时间:2023/11/23 23:12:00
--  
谢谢老师!!!
谢谢!!!