Kopírování více položek z ListBoxu do schránky – Visual Basic – Fórum – Programujte.com

Zdravím, mohl by prosím někdo poradit jak kopírovat více položek z ListBoxu do schránky (VB2005Express). Dík moc.

Ja viem so schránkou robiť len teoreticky ;), takže napr. neviem, či som použil dobrý formát dát, ale funguje mi to:

Uloženie dát do schránky (prešiel som všetky položky Listboxu a vytvoril String, napr. "Položka1,Položka2,Položka3")

    Dim x As String = ""

    For Each s As String In ListBox1.Items

        x &= s & ","

    Next

    x = x.Substring(0, x.Length - 1)



    Clipboard.SetData(Windows.Forms.DataFormats.CommaSeparatedValue, x)

    If Clipboard.ContainsData(Windows.Forms.DataFormats.CommaSeparatedValue) Then

        Dim x As String = Clipboard.GetData(Windows.Forms.DataFormats.CommaSeparatedValue)

        Dim p() As String = x.Split(",")

        For Each s As String In p

            ListBox1.Items.Add(s)

        Next

    End If