Kopirování dat z listboxu do listboxu

Kopirování dat z listboxu do listboxu otázka

8. 3. 2013 11:36

1 26

Ahoj, nevím si rady jak zkopírovat data (označeno více položek, listbox nastavený na multiselect) z jednoho listboxu do druhého listboxu. Vždy se mi zkopíruje jen ten poslední označený. Díky za radu.

nahlásit spam

odpovědět

Chtělo by to dát sem kód, kterým kopírování provádíte. Takhle vám těžko někdo poradí.

nahlásit spam

1 / 1

odpovědět

8. 3. 2013 12:28

Jiří Šimara

1 26

Private Sub Command3_Click()
List2.AddItem (List3.Selected)
End Sub

V listboxu 3 si označím např. 5 položek a tlačítkem command3 je chci zkopírovat do listboxu 2

nahlásit spam

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

vyskusaj

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles utton1.Click
        Dim oznacene = ListBox1.SelectedItems.Count
        Dim zaciatok_oznacenia = ListBox1.SelectedIndex
        For i = 0 To oznacene - 1
            zaciatok_oznacenia += 1
            ListBox2.Items.Add(zaciatok_oznacenia)
        Next
    End Sub

nahlásit spam

odpovědět

8. 3. 2013 14:13

Jiří Šimara

1 26

No tohle vubec nefunguje. Máš tam špatně definované proměnné (řadek s dim). Ale myšlenka to není špatná zkusím si s tímhle pohrát.

Jen pro info je to ve VB6

nahlásit spam

odpovědět

to prve bol nieco ine tu je oprava

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim zaciatok_oznacenia = ListBox1.SelectedIndex - 1
        For x = 0 To ListBox1.SelectedItems.Count - 1
            zaciatok_oznacenia += 1
            ListBox2.Items.Add((ListBox1.Items(zaciatok_oznacenia)))
        Next
    End Sub

nahlásit spam

odpovědět

Tohle funguje možná jen v novější verzi. Já to píšu ve VB6.

nahlásit spam

odpovědět

tak inač ti neviem poradiť

nahlásit spam

odpovědět

Je to sice prasárna ale funguje to.

Private Sub Command3_Click()
For i = 0 To List3.ListIndex
a = List3.Selected(i)
If a = True Then List2.AddItem List3.List(i)
Next i
End Sub

nahlásit spam

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz