VB ListView 一键提取选定的内容列表

Private Sub Command4_Click()

 CopySelectedItems

End Sub

Private Sub CopySelectedItems()  '一键复制选定的值

    Dim lishilist As String

    Dim i As Integer

    For i = 1 To ListView1.ListItems.Count

        If ListView1.ListItems(i).Checked Then ' 检查列表项是否被选中

            Dim rowData As String

            rowData = ListView1.ListItems(i).SubItems(2) & vbCrLf ' 提取第三列数据

            lishilist = lishilist & rowData ' 添加到 RichTextBox

        End If

    Next i

    RichTextBox1.Text = lishilist

End Sub