有一个列表框，下面一个按钮，怎样实现单击按钮，然后列表框自动指向下一条？
也就是说按钮相当于一个向下键，各位大哥大姐帮帮忙！

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

我昨天刚学的
清说清楚点好吗
是要编程序还是用控件阿

在 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

现在解决了
可是要使做成那种可以循环的怎么做啊

做出来了
稍微改一下就行了

上翻的时候要使做成那种循环的
If List1.ListIndex = 0 Then List1.ListIndex = List1.ListCount
List1.ListIndex = List1.ListIndex - 1
这个代码不对吗？
一运行就说错误！

不管怎么改代码
向上翻的键到不了最后一条
再请帮忙

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

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