将列表框中的项目复制/粘贴到任何文档（Excel，Word，.txt） - VB.NET

Question

我无法将列表框中的项目复制/粘贴到任何文档（Excel，Word，.txt）。我需要在列表框中选择多个项目。我搜索了它，但那里似乎有多个模糊的答案。谁能指导我？

谢谢！

Answer 1

您需要做的就是允许SelectionMode到MultiSimple或MultiExtended然后您可以使用SelectedItems集合在列表框的KeyDown事件中复制到剪贴板

简单地说

ListBox1.SelectionMode = SelectionMode.MultiSimple活动

中的

form.load

并使用此代码（注意：listbox命名为ListBox1）

Private Sub ListBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown

    If e.Control AndAlso e.KeyCode = Keys.C Then
        Dim copy_buffer As New System.Text.StringBuilder
        For Each item As Object In ListBox1.SelectedItems
            copy_buffer.AppendLine(item.ToString)
        Next
        If copy_buffer.Length > 0 Then
            Clipboard.SetText(copy_buffer.ToString)
        End If
    End If
End Sub

Answer 2

插入richtextbox并添加：

For x As Integer = 0 To ListBox1.Items.Count - 1
    RichTextBox1.AppendText(ListBox1.Items(x).ToString & Environment.NewLine)
Next