Perkelti elementus iš vienos ListView

Tai paprastas, bet labai retai, pavyzdys, kaip mes darome Visual Basic. NET persikelti (kodą) į ListView elementus.

Reikia su ListView ir dviejų mygtukų formą:

Dabar, užpildykite ListView kai pavyzdžiui, duomenų ir Load atveju pats:

 ListView1.Items.Add ("Carlos")
 ListView1.Items.Add ("Igor")
 ListView1.Items.Add ("Damian")
 ListView1.Items.Add ("Susana")
 ListView1.Items.Add ("Gerardas")
 ListView1.Items.Add ("Claudia")
 ListView1.Items.Add ("Marta")
 ListView1.Items.Add ("Liliana")
 ListView1.Items.Add ("Eliziejus")
 ListView1.Items.Add (Augustinas)
 ListView1.Items.Add (Camila)
 ListView1.Items.Add ("Lukas")
 ListView1.Items.Add ("Jorge")
 ListView1.Items.Add ("Mabel")
 ListView1.Items.Add ("Natalija")
 ListView1.Items.Add ("Gabriella")
 ListView1.Items.Add ("Paula")
 ListView1.Items.Add ("Matias",)
 ListView1.Items.Add ("Martin")
 ListView1.Items.Add ("Jonas")
 ListView1.Items.Add ("Maria")
 ListView1.Items.Add ("Abelis")
 ListView1.Items.Add ("Petras")

ListView1.FullRowSelect = true
ListView1.MultiSelect = False

ListView1.HideSelection = False

Atkreipkite dėmesį, kad mes taip pat seteado trys labai svarbios savybės: FullRowSelect = Tiesa elemento pasirinkti visą eilutę pažymėtas MultiSelect = False, kad tik jūs galite pasirinkti elementą ir HideSelection = False visada matyti, ką elementas pažymėtas .

Tada UP mygtuko paspaudimu atveju:

 Jei ListView1.SelectedIndices.Count> 0 Tada
 Pabandyti
 Dim laikas As String
 temperatūra = ListView1.Items (ListView1.FocusedItem.Index - 1). Tekstas

 ListView1.Items (ListView1.FocusedItem.Index - 1). Tekstas = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = laikinas

 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Pasirinktą = true
 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Tikslingai = true

 , Sugavimo ex Kaip išimties
 Pyptelėjimas ()
 Pabaiga Bandykite
 Kitas
 MsgBox ("Jūs turite pasirinkti iš sąrašo elementą.")
 End If

DOWN mygtukus spustelėkite įvykis:

 Jei ListView1.SelectedIndices.Count> 0 Tada
 Pabandyti
 Dim laikas As String
 temperatūra = ListView1.Items (ListView1.FocusedItem.Index + 1). Tekstas </ code>

 ListView1.Items (ListView1.FocusedItem.Index + 1). Tekstas = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = laikinas

 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Pasirinktą = true
 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Tikslingai = true

 , Sugavimo ex Kaip išimties
 Pyptelėjimas ()
 Pabaiga Bandykite
 Kitas
 MsgBox ("Jūs turite pasirinkti iš sąrašo elementą.")
 End If

Štai ir viskas, jie gali paleisti ir išbandyti, kaip ji veikia. Aš palikti veikia žuvis programos:

Tikiuosi, kad, kaip ir aš, jie bus labai naudinga.