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

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