Question

vb获取listbox中所有选中行的文本

Answer 1

新建 VB 工程，然后向窗体中分别添加 Command1 和 List1 各一个！实现代码如下：
**********************************************************************
Option Explicit
Dim i As Integer

Private Sub Command1_Click()
Dim selText As String '选中文本值
selText = ""

'╱＊于循环中判断每一项是否被选中＊╱
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
'连接选中文本值
selText = selText & List1.List(i) & vbCrLf
End If
Next
'显示结果
MsgBox selText, vbOKOnly, "Tips"
End Sub

Private Sub Form_Load()
'╱＊初始化 List1 中的数据＊╱
With List1
For i = 1 To 5
.AddItem "测试" & i
Next
End With
End Sub

Answer 2

vb获取listbox中所有选中行的文本? 问题补充：循环读取所有勾选的行的文本，老大 For i = 0 To List1.ListCount - 1 If List1.Selected(i) =

Answer 3

ListIndex 表示选中的文本