|
Jestli to dobře chápu, měla by to být hračka. Pro přidání položky používáme syntaxi:
ListView1.ListItems.Add , , "položka"
Před tou první čárkou je tzv. Index - to je pořadí položky v seznamu (pozor, první položka má číslo 1 a ne 0, jako třeba u ListBoxu). Takže pokud chci položku přidat na třetí řádek, uvedu:
ListView1.ListItems.Add 3, , "položka"
Pořadí položky bude o jednu vyšší než kopírovaná položka a text položky bude stejný, takže to půjde třeba takhle (se zavedením pomocné proměnné, pro přehlednost):
Dim KolikataPolozka as Integer
Dim TextPolozky as String
KolikataPolozka = ListView1.SelectedItem.Index
'na kterém řádku je označená (kopírovaná) položka
TextPolozky = ListView1.SelectedItem
'jak zní text označené položky
ListView1.ListItems.Add KolikataPolozka + 1, , TextPolozky
'a samotné přidání položky do seznamu na určenou pozici
Tohle pleskněte třeba na button a hotovka. Stručnější verze:
ListView1.ListItems.Add ListView1.SelectedItem.Index + 1, , ListView1.SelectedItem
Prosim :)
|