首页 >> 读书频道 >> 电脑 >> 使两个ListBox项目同步
 
· 如何动态设定TextBo
· 使TextBox按Mou
· AutoRedraw与I
· TextBox中文字如何
· 确定谁引发Lostfoc
· 创建无 Icon 的窗口
· VB.NET面向对象的实
· VB.NET面向对象的实
· VB.NET面向对象的实
· VB.NET面向对象的实
· VB.NET面向对象的实
· VB.NET面向对象的实
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

使两个ListBox项目同步


查看有无更新版本

关键字:VB 2006-9-18

 

使List1项目的移动、选取,影响List2项目的动、选取

需:两个ListBox,一个Timer
但这是vb4.0的作法,在vb5.0时,可以由Thomasaria 提供的简易作法完成

Private Sub List1_Scroll(Index As Integer)
'按卷动轴时list项目位置同步
List2.TopIndex = List1.TopIndex
End Sub

Private Sub List2_Scroll(Index As Integer)
'按卷动轴时list项目位置同步
List1.TopIndex = List2.TopIndex
End Sub


Option ExplicitSub Form_Load() 'Initialize two list boxes with the alphabet Dim i As Long For i = 1 To 26 List1.AddItem Chr$(i + 64) Next i For i = 1 To 26 List2.AddItem Chr$(i + 64) Next i Timer1.Interval = 1 Timer1.Enabled = TrueEnd SubSub Timer1_Timer() Dim TopIndex_List1 As Long Static PrevTI_List1 'Get the index for the first item in the visible list TopIndex_List1 = List1.TopIndex 'See if the top index has changed If TopIndex_List1 <> PrevTI_List1 Then 'Set the top index of List2 equal to List1 so that the list boxes 'scroll to the same relative position List2.TopIndex = TopIndex_List1 'Keep track of the current top index PrevTI_List1 = TopIndex_List1 End If 'Select the item in the same relative position in both list boxes If List1.ListIndex <> List2.ListIndex Then List2.ListIndex = List1.ListIndex End IfEnd Sub

使两个ListBox项目同步

[ 1 ]
使两个ListBox项目同步 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑