我选中ListBox中的某一条，当我按一下按钮，能不能自动选中下一条？

Question

如题！不知道小弟表达得能不能理解

Answer 1

能理解！用Tab的ASCII码就能实现！！

Answer 2

Dim i As Integer
'下一条
Private Sub Command1_Click()
  If i >= 10 Then Exit Sub
  List1.ListIndex = i
  i = i + 1
End SubPrivate Sub Form_Load()
  For i = 0 To 10
    List1.AddItem i
  Next
  i = 0
End Sub

Answer 3

Private Sub Command1_Click()
        If List1.ListIndex + 1 = List1.ListCount Then
           List1.ListIndex = 0
        Else
           List1.ListIndex = List1.ListIndex + 1
        End If
End Sub

Answer 4

通过listbox的Selected属性实现。  Listbox.Selected(i) = True  '选中第i项……

Answer 5

小弟都试了，都没有成功！是这样的，现在有一个按钮叫“Command1”，有一个ListBox叫“List1”，List1中有若干条选项，初始状态下，并没有选中任何的选项现在当我选中比如说是第2条选项后，点击按钮，然后蓝条（即选中状态时呈现蓝条）移到第3条选项，再点击按钮，又移到第4条选项

Answer 6

Option ExplicitPrivate Sub Command1_Click()
        If List1.ListIndex + 1 >= List1.ListCount Then
           List1.ListIndex = 0
        Else
           List1.ListIndex = List1.ListIndex + 1
        End If
End SubPrivate Sub Form_Load()
        Dim i As Long
        For i = 0 To 9
            List1.AddItem i
        Next
        List1.ListIndex = -1
End Sub

Answer 7

List1.ListIndex = List1.ListIndex + 1

Answer 8

发完这个就下班回家:)
Private Sub Command1_Click()
    List1.ListIndex = (List1.ListIndex + 1) Mod List1.ListCount
End SubPrivate Sub Form_Load()
    Dim i As Long
    For i = 0 To 9
        List1.AddItem i
    Next
    List1.ListIndex = 0
End Sub