Text-Inhalt aller Listview-Items in die Zwischenablage kopie

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

Imports System.Text

   Public Sub ListviewItemsToClipboard(ByVal control As ListView)
      Dim Data As New StringBuilder
      Dim Item As ListViewItem

      For L As Integer = 0 To control.Items.Count - 1
         Item = control.Items(L)

         For M As Integer = 0 To Item.SubItems.Count - 1
            Data.Append(Item.SubItems(M).Text)
            If M <> Item.SubItems.Count - 1 Then
               Data.Append(ControlChars.Tab)
            End If
         Next
         Data.Append(ControlChars.CrLf)
      Next

      Clipboard.SetDataObject(Data.ToString, True)

   End Sub