Text-Inhalt aller Listview-Items in die Zwischenablage kopie

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

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

Alte URL: /snippet/text-inhalt-aller-listview-items-in-die-zwischenablage-kopie/477