主题：[求助]面板同步

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

下面的代码不起作用。

 

求助大家

 

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

 

谢

 

 

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

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  ''不出现滚动条，则无法正常联动。即移动一面板水平滚动条，另一面板滚动到相同位置

 

 

 测试，没问题。只要你pnl1有超出的内容，都可以设置滚动位置。