在 VBA 用户窗体上获取多选 ListView 的选择

Question

listview sample我正在用户表单上使用列表视图。我启用了多选。我想在列表视图中选择多个项目，然后获取在同一表单上的其他一些文本框中找到的值，并将这些值推送到选定的项目子项（列）中。列表视图对我来说有点像新野兽。我的列表视图填充没有问题。我能够将数据推送到单个选定的行，但我不知道如何获取所有选定的行索引，然后相应地推送到所有子项。我最终只得到最后选择的行。

谢谢。

Answer 1

要获取选定的项目，请使用代码：

ListeCount = myListview.ListItems.Count
For i = 1 To ListeCount
        If myListview.ListItems.Item(i).Selected Then
        MsgBox myListview.ListItems.Item(i).Text
    End If
Next i

编辑#1：

ListeCount = myListview.ListItems.Count
For i = 1 To ListeCount
    If myListview.ListItems.Item(i).Checked Then
            MsgBox myListview.ListItems.Item(i).Text
            'Check if The column 2 of item 'i' is empty
            If myListview.ListItems.Item(i).SubItems(1) = vbNullString Then
                'Fill the empty column with a value
                myListview.ListItems.Item(i).SubItems(1) = "Test"
            End If
    End If
Next i