简单listbox问题

Question

在listbox单击属性中
listbox中的属性List.Text返回的就是你选中
内容！

Answer 1

Private Sub Command1_Click()
  For i = 0 To 9
    List1.AddItem "Item" & CStr(i + 1)
  Next
End SubPrivate Sub List1_Click()
  MsgBox "你单击的是第" & CStr(List1.ListIndex + 1) & "项"
End Sub

Answer 2

Private Sub List1_Click()
    Dim nLoop   As Integer  '申明一个变量，用户循环
    
    ' Item的Index是从0开始的。所以
    ' 从0开始直到项目数（list1.listcount可以获取Item的数量和）
    
    For nLoop = 0 To List1.ListCount
        
        ' 当循环到被选中index时，list1.Selected（）返回为true
        If List1.Selected(nLoop) Then
        
            ' 等到被选中Item的index，
            MsgBox "You selected Index" & Str(nLoop)
            ' 退出，否则会出现错误
            Exit Sub
        End If
    Next nLoop
End Sub