VB.NET中如何将ListView选中行复制到剪贴板？

1. 复制选中行的所有列内容 #

你当前的代码Clipboard.SetText(lv.Items.Item(0).Text)只获取了选中行的第一列文本，要获取所有子项，需要遍历该行的所有SubItems，将文本用制表符分隔（适配Excel的单元格识别规则）：

单行选中场景 #

' 假设lv是你的ListView控件，且已选中一行
If lv.SelectedItems.Count > 0 Then
    Dim selectedRow = lv.SelectedItems(0)
    Dim rowText As New StringBuilder()
    ' 遍历该行所有子项
    For Each subItem In selectedRow.SubItems
        If rowText.Length > 0 Then
            ' 用制表符分隔列，Excel会自动识别为不同单元格
            rowText.Append(vbTab)
        End If
        rowText.Append(subItem.Text)
    Next
    ' 写入剪贴板
    Clipboard.SetText(rowText.ToString())
End If

2. 复制整行并以网格形式粘贴到Excel #

上面的代码用制表符分隔各列内容，复制后直接粘贴到Excel，Excel会自动将制表符分隔的内容分配到对应单元格，实现网格形式的粘贴。如果需要支持多行选中，只需遍历所有选中行，每行内容用换行符分隔：

多行选中场景 #

If lv.SelectedItems.Count > 0 Then
    Dim allRowsText As New StringBuilder()
    For Each selectedRow In lv.SelectedItems
        Dim rowText As New StringBuilder()
        For Each subItem In selectedRow.SubItems
            If rowText.Length > 0 Then
                rowText.Append(vbTab)
            End If
            rowText.Append(subItem.Text)
        Next
        If allRowsText.Length > 0 Then
            ' 用换行符分隔不同行
            allRowsText.Append(vbCrLf)
        End If
        allRowsText.Append(rowText.ToString())
    Next
    Clipboard.SetText(allRowsText.ToString())
End If

内容的提问来源于stack exchange，提问作者Indahtool Vision