| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
雷速体育发帖软件开发QQ118000023C语言培训|一对一辅导|零基础学编程LightningChart 快速先进的.Net图表控件
共有 194 人关注过本帖
标题:请教, 有没有可能让一个滚动条控制所有 listbox?
只看楼主 收藏
VBLeah
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2018-2-19
结帖率:0
  已结贴   问题点数:20  回复次数:3   
请教, 有没有可能让一个滚动条控制所有 listbox?

放一个vscrollbar, 控制listbox 1 2 3 让他们同步滚动, 该怎么实现? 求大神指点
2018-05-28 09:38
wds1
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:21
帖 子:218
专家分:1193
注 册:2016-3-10
  得分:7 
Private Sub Form_Load()
File1.Path = "c:\windows"
File2.Path = "C:\Windows\SysWOW64"
File3.Path = "c:\windows\system32"
VScroll1.Max = 100
VScroll1.Min = 1
VScroll1.LargeChange = 1
VScroll1.SmallChange = 1
End Sub

Private Sub VScroll1_Change()
 temp1 = VScroll1.Value
 t1 = Int(File1.ListCount * temp1 / 100) - 1
 temp1 = VScroll1.Value
 t2 = Int(File2.ListCount * temp1 / 100) - 1
 temp1 = VScroll1.Value
 t3 = Int(File3.ListCount * temp1 / 100) - 1
 File1.ListIndex = t1
 File2.ListIndex = t2
 File3.ListIndex = t3
End Sub

[此贴子已经被作者于2018-5-28 13:31编辑过]

2018-05-28 13:22
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:62
帖 子:687
专家分:3706
注 册:2016-5-10
  得分:7 

程序代码:

Private Sub Form_Load()
For I = 0 To 119
List1.AddItem I + 1
List2.AddItem I + 1
List3.AddItem I + 1
Next I
VScroll1.Max = 120
VScroll1.Min = 1
End Sub

Private Sub VScroll1_Change()
Dim APST As Single
 APST = VScroll1.Value
 List1.ListIndex = Int(List1.ListCount * APST / 100) - 1
 List2.ListIndex = Int(List2.ListCount * APST / 100) - 1
 List3.ListIndex = Int(List3.ListCount * APST / 100) - 1
End Sub

你要的是这个吧?
回复 wmf2014
可能吧,只考虑了相同的情况。如果情况不同,估计加判断加应该可以吧!

[此贴子已经被作者于2018-5-29 12:17编辑过]

附件: 您没有浏览附件的权限,请 登录注册

QQ    2653043392
2018-05-28 21:08
wmf2014
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:138
帖 子:1675
专家分:9378
注 册:2014-12-6
  得分:7 
回复 3楼 ZHRXJR
拖到最后出现错误,另外没有考虑各个listcount不一样,再就是应该用topindex属性合理些,用listindex改变list原有选择了。因此你这个代码不具备实用性。

能编个毛线衣吗?
2018-05-29 10:51







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043668 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved