以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]面板同步  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95010)
--  作者：pcxjxjhkw
--  发布时间：2017/1/7 22:13:00
--  [求助]面板同步

滚动一面板的水平滚动条，想实现：同步滚动另一面板的水平滚动条。

下面的代码不起作用。

 

求助大家

 

Dim pnl1 As WinForm.Panel = e.Form.Controls("Panel1")
Dim p As Point = pnl1.ScrollPosition
p.x = e.Sender.ScrollPosition.x

 

谢

 

 

另：如何判断一面板是否有滚动条？

[此贴子已经被作者于2017/1/7 22:26:37编辑过]
--  作者：有点色
--  发布时间：2017/1/8 15:53:00
--  

1、

 

Dim pnl1 As WinForm.Panel = e.Form.Controls("Panel1")
Dim p As Point = pnl1.ScrollPosition
p.x = -e.Sender.ScrollPosition.x
pnl1.ScrollPosition = p

 

2、无法直接知道是否显示了滚动条的，但不影响你用1楼的代码。
--  作者：pcxjxjhkw
--  发布时间：2017/1/8 15:57:00
--  
以下是引用有点色在2017/1/8 15:53:00的发言：

1、

 

Dim pnl1 As WinForm.Panel = e.Form.Controls("Panel1")
Dim p As Point = pnl1.ScrollPosition
p.x = -e.Sender.ScrollPosition.x
pnl1.ScrollPosition = p

 

2、无法直接知道是否显示了滚动条的，但不影响你用1楼的代码。

老师，出现一新问题：

pnl1.AutoScroll = flase  \'\'不出现滚动条，则无法正常联动。即移动一面板水平滚动条，另一面板滚动到相同位置

 

 
--  作者：有点色
--  发布时间：2017/1/8 16:24:00
--  
 测试，没问题。只要你pnl1有超出的内容，都可以设置滚动位置。