[求助]最后一个问题 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]最后一个问题

标题：[求助]最后一个问题

只看楼主

anerson

等　级：新手上路
帖　子：29
专家分：0
注　册：2006-6-16

楼主

问题点数：0 回复次数：2

[求助]最后一个问题

试验中遇到的最后一个问题

在list框中添加一个上翻一个下翻按钮
当摁下上翻下翻的时候
可以实现条目的上翻下翻
可以循环的那种
现在下翻已经解决
但是上翻到第一个的时候
再次摁下上翻就变成倒数第二个了
If List1.ListIndex = 0 Then
List1.ListIndex = List1.ListCount - 1
End If
List1.ListIndex = List1.ListIndex - 1

2006-09-11 20:12

yeshirow

等　级：贵宾
威　望：10
帖　子：854
专家分：0
注　册：2006-6-8

第 2 楼

得分:0

當 ListCount=0 時, 你不是翻了兩次嗎.

If List1.ListIndex = 0 Then
List1.ListIndex = List1.ListCount - 1
Else
List1.ListIndex = List1.ListIndex - 1
End If

--------------------
List1.ListIndex = Iif(List1.ListIndex=0, List1.ListCount-1, List1.ListIndex-1)

原來朋友仔感情再天真, 亦是我永遠也會愛惜的人, 明日愛他人, 也記住學會不要緊; 原來朋友比戀人更高分, 亦讓我開始懂得不記恨, 若大家都敏感, 我更要永遠記得拒絕再因小事怪人, 爲何沒有這條校訓...Twins-朋友仔 MCSD Training

2006-09-11 21:29

anerson

等　级：新手上路
帖　子：29
专家分：0
注　册：2006-6-16

第 3 楼

得分:0

多谢
已经解决

2006-09-11 22:08

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-89460-1-1.html

當 ListCount=0 時, 你不是翻了兩次嗎.If List1.ListIndex = 0 Then List1.ListIndex = List1.ListCount - 1Else List1.ListIndex = List1.ListIndex - 1End If--------------------List1.ListIndex = Iif(List1.ListIndex=0, List1.ListCount-1, List1.ListIndex-1)

當 ListCount=0 時, 你不是翻了兩次嗎.

If List1.ListIndex = 0 Then
List1.ListIndex = List1.ListCount - 1
Else
List1.ListIndex = List1.ListIndex - 1
End If

--------------------
List1.ListIndex = Iif(List1.ListIndex=0, List1.ListCount-1, List1.ListIndex-1)