| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 655 人关注过本帖
标题:[求助]看看这个问题
只看楼主 加入收藏
anerson
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2006-6-16
收藏
 问题点数:0 回复次数:11 
[求助]看看这个问题
有一个列表框,下面一个按钮,怎样实现单击按钮,然后列表框自动指向下一条?
也就是说按钮相当于一个向下键,各位大哥大姐帮帮忙!
搜索更多相关主题的帖子: 大哥 
2006-09-05 12:25
yeshirow
Rank: 4
等 级:贵宾
威 望:10
帖 子:854
专家分:0
注 册:2006-6-8
收藏
得分:0 

在Button 的 Click 事件下改變 ListBox 的 ListIndex 啊.
注意不要下溢啊.


原來朋友仔感情再天真, 亦是我永遠也會愛惜的人, 明日愛他人, 也記住學會不要緊; 原來朋友比戀人更高分, 亦讓我開始懂得不記恨, 若大家都敏感, 我更要永遠記得拒絕再因小事怪人, 爲何沒有這條校訓...Twins-朋友仔 MCSD Training
2006-09-05 12:26
anerson
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2006-6-16
收藏
得分:0 
我昨天刚学的
清说清楚点好吗
是要编程序还是用控件阿
2006-09-05 12:40
yeshirow
Rank: 4
等 级:贵宾
威 望:10
帖 子:854
专家分:0
注 册:2006-6-8
收藏
得分:0 

在 Form 畫一個 Command, 名字是 Command1, 畫一個 ListBox, 名字是 List1.

首先要添加一個 內容到 List1 中

Private Sub Form_Load()
Dim i As Integer
With List1
For i = 0 To 100
.AddItem "list" & i
Next i
End With
End Sub

然後寫 Command1 的事件.
Private Sub Command1_Click()
If List1.ListIndex = List1.ListCount - 1 Then Exit Sub
List1.ListIndex = List1.ListIndex + 1
End Sub


原來朋友仔感情再天真, 亦是我永遠也會愛惜的人, 明日愛他人, 也記住學會不要緊; 原來朋友比戀人更高分, 亦讓我開始懂得不記恨, 若大家都敏感, 我更要永遠記得拒絕再因小事怪人, 爲何沒有這條校訓...Twins-朋友仔 MCSD Training
2006-09-05 12:48
anerson
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2006-6-16
收藏
得分:0 
现在解决了
可是要使做成那种可以循环的怎么做啊
2006-09-05 14:01
anerson
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2006-6-16
收藏
得分:0 
做出来了
稍微改一下就行了
2006-09-05 14:10
anerson
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2006-6-16
收藏
得分:0 
上翻的时候要使做成那种循环的
If List1.ListIndex = 0 Then List1.ListIndex = List1.ListCount
List1.ListIndex = List1.ListIndex - 1
这个代码不对吗?
一运行就说错误!
2006-09-05 14:37
anerson
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2006-6-16
收藏
得分:0 
不管怎么改代码
向上翻的键到不了最后一条
再请帮忙
2006-09-05 16:09
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
收藏
得分:0 

Dim a As Integer
Private Sub Command1_Click()
a = a + 1
If List1.ListIndex = List1.ListCount - 1 Then
a = 0
End If
List1.ListIndex = a
End Sub

Private Sub Form_Load()
a = -1
For i = 0 To 10
List1.AddItem "aaaaaaaaaaaaaaaa" & i
Next
End Sub


IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-09-06 17:48
yeshirow
Rank: 4
等 级:贵宾
威 望:10
帖 子:854
专家分:0
注 册:2006-6-8
收藏
得分:0 
以下是引用anerson在2006-9-5 14:37:00的发言:
上翻的时候要使做成那种循环的
If List1.ListIndex = 0 Then List1.ListIndex = List1.ListCount
List1.ListIndex = List1.ListIndex - 1
这个代码不对吗?
一运行就说错误!

List 的條目未獲焦點或被設置之前, 它的 ListIndex 的值是 -1 的.
你只是判斷了 =0 的情況, 最好是剛開始加入條目後, 讓它的 ListIndex=0.


原來朋友仔感情再天真, 亦是我永遠也會愛惜的人, 明日愛他人, 也記住學會不要緊; 原來朋友比戀人更高分, 亦讓我開始懂得不記恨, 若大家都敏感, 我更要永遠記得拒絕再因小事怪人, 爲何沒有這條校訓...Twins-朋友仔 MCSD Training
2006-09-06 17:51
快速回复:[求助]看看这个问题
数据加载中...
 
   



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

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