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

Posted 2023-03-24

参考技术A 新建 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 参考技术B vb获取listbox中所有选中行的文本? 问题补充：循环读取所有勾选的行的文本，老大 For i = 0 To List1.ListCount - 1 If List1.Selected(i) =本回答被提问者采纳 参考技术C ListIndex 表示选中的文本

listbox的值怎么获取vba

参考技术A vba窗体中如何获取列表框listbox1选中行的值提取出来，这决于您的列表框是多列还是单列。如果单列列表框的数据实际上是一维数组，则可以使用工作表函数transform导入文本框。经过三次转换后，可以将其转换为一维数组，然后使用join函数将其合并并写入文本框。多列列表框是二维数组。编写一个循环来读取列表框中的数据，然后将其写入文本框这是一个单列数据示例和一个多列数据示例。
如果listbox是多列的情况下，将listbox.column属性看作一个二维数组使用，比如获取第一行第一列的值 listbox.column(0,0)，单列就是一维数组。或者定义一个variant型变量，然后将listbox.list赋值给它，也会得到一个数组。