如何获得ListBox中的行数(第几行)和每行的内容

建立一个listbox

把listbox的Style属性设置成 1-checkbox

Private Sub Form_Load()

Dim a(0 To 10) As Integer

For i = 0 To 10

a(i) = i

List1AddItem a(i), i

List1Selected(i) = True

Next i

End Sub

还有个就是MultiSelect属性如果选true,就是可以多选了，

List1SelCount

Private Sub Form_Load()

For i = 0 To 2

  For j = 1 To 100

    List1(i)AddItem j 250

  Next j

Next i

End Sub

Private Sub List1_Click(Index As Integer)

Label1(Index)Caption = "当前共选中" & List1(Index)SelCount & "项"

End Sub

注：List1(0)Style=1，List1(1)MultiSelect=0；

     List1(1)Style=0，List1(1)MultiSelect=1；

     List1(1)Style=0，List1(1)MultiSelect=2 。

以上就是关于如何获得ListBox中的行数(第几行)和每行的内容全部的内容，包括:如何获得ListBox中的行数(第几行)和每行的内容、vb统计list中被选的行数 麻烦代码,谢谢、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！