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

Question

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

谢谢!

Answer 1

所有你需要做的是让SelectionMode到MultiSimple或MultiExtended那么你可以使用SelectedItems集合复制列表框的KeyDown事件到剪贴板

简单的说

ListBox1.SelectionMode = SelectionMode.MultiSimple在form.load事件中

并使用此代码(注意:列表框命名为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