listview 复制某单元格内容

Question

在vb 中, 在listview 中..
如何能复制任意选中的单元格内容??

Answer 1

应该很明白了吧就是如何复制listview控件 单元格中的内容.

Answer 2

Clipboard.SetText listview.SelectedItem.ListSubItems.Item(i).Text

Answer 3

Clipboard.SetText listview.SelectedItem.ListSubItems.Item(i).Text i就是你想要的subitem index，如果就想要主itemClipboard.SetText listview.SelectedItem.Text 

Answer 4

可以在mousedown事件中循环columnheaders各列的left来判断鼠标x的当前位置

Answer 5

Clipboard.SetText ListView1.selectedItem.Text如果有checkbox的
    Dim strTmp As String, i As Long
    
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).Checked = True Then
            strTmp = IIf(strTmp = "", "", strTmp) & ListView1.ListItems(i).Text
        End If
    Next
    Clipboard.SetText strTmp

Answer 6

Private Sub lv_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim i As Integer, bFalse As Boolean, col As Integer, strText As String
    Dim l As ListItem
    bFalse = False
    With lv
        For i = 1 To .ColumnHeaders.Count - 1
           If x >= .ColumnHeaders(i).Left And x < .ColumnHeaders(i + 1).Left Then
            bFalse = True
            col = i
           End If
        Next
        If x >= .ColumnHeaders(.ColumnHeaders.Count).Left Then
            col = .ColumnHeaders.Count
            bFalse = True
        End If
        .FullRowSelect = True    If bFalse = True Then
        If col = 1 Then
            strText = .SelectedItem.Text
        Else
            strText = .SelectedItem.SubItems(col - 1)
        End If
        MsgBox strText
       Clipboard.SetText strText
    End If
    End With
End Sub试试看这个，我测试成功了