关于ListView控件的问题：如何批量移动勾选的条目？请大家帮帮我，谢谢你们了！

Question

我现在将数据读入ListView中，并且允许复选，我想将我所选中的条目批量显示在TEXT控件中（单个的我已经实现，但是无论我选择多少，总是只显示最后一条，而不是我所有选中的）。这个问题困扰我很久了，请大家帮帮我，小弟初来，还没弄明白积分……请大家不要嫌弃，谢谢了。

Answer 1

'窗体中放一个TextBox,将lock属性设置为true,multiline设置为true,一个ListView,一个command按钮
Private Sub Command1_Click()
        Dim i As Long
        With Me.Text1
            .Text = vbNullString
        End With
        With Me.ListView1.ListItems
            For i = 1 To .Count
                If .Item(i).Checked = True Then
                    If Len(Me.Text1.Text) <> 0 Then
                        Me.Text1.Text = Me.Text1.Text & vbCrLf & .Item(i).Text & "--" & .Item(i).SubItems(1) & "--" & .Item(i).SubItems(2)
                    Else
                        Me.Text1.Text = .Item(i).Text & "--" & .Item(i).SubItems(1) & "--" & .Item(i).SubItems(2)
                    End If
                End If
            Next
        End With
End SubPrivate Sub Form_Load()
        Dim i As Long
        
        With Me.ListView1
            .Checkboxes = True
            .Appearance = cc3D
            .View = lvwReport
            .FullRowSelect = True
            .LabelEdit = lvwManual
            .ColumnHeaders.Add 1, "x", "哈"
            .ColumnHeaders.Add 2, "xx", "哈哈"
            .ColumnHeaders.Add 3, "xxx", "哈哈哈"
        End With
        With Me.ListView1
            For i = 1 To 10
                .ListItems.Add
                With .ListItems.Item(i)
                    .Key = "x" & CStr(i)
                    .Text = "测试" & CStr(i)
                    .SubItems(1) = "测试" & CStr(i)
                    .SubItems(2) = "测试" & CStr(i)
                End With
            Next
        End With
End Sub