Feedback

VB - Text-Inhalt aller Listview-Items in die Zwischenablage kopie

Veröffentlicht von am 09.03.2007
(1 Bewertungen)
Selbsterklärend
GFU-Schulungen  [Anzeige]

C# Aufbaukurs

Sie haben grundlegende .NET- und C#-Kenntnisse und und wollen diese nun erweitern. Der Aufbaukurs C# führt Sie ein die Arbeit mit Interfaces und Delegates, Generics und Parallel Computing.

VB.NET 2017/2015/2013 Komplett

Ziel des Seminars ist der flexible Umgang mit VB.NET, wie z.B. die damit verbundene eigenständige Entwicklung von Programmen oder das Verwenden von Datenbanken.

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

Abgelegt unter listview, Clipboard.

1 Kommentare zum Snippet

Volker Steitz schrieb am 10.03.2007:
Ist wirklich gut. Aber - warum meldest Du dich nicht als User an, sondern postest Beiträge als Gast?
 

Logge dich ein, um hier zu kommentieren!