Keskustelu: Ohjelmointikysymykset: VB6: Listan arpominen

On päässyt unohtumaan miten vb:ssä tehdään seuraava:

List1:ssä on 18 kohdetta. Command -nappia painamalla pitäisi List1:stä arpoa niiden 18 kohteen järjestys List2:een.

Miten olisi kaikista paras toteuttaa?

Arvot jonkin kohdan listasta. Sitten kopioit tuon kohdan toiseen listboxiin ja poistat saman kohdan alkuperäisestä. Siten määrä vähenee yhdellä ja arvot taas jonkin luvun tuolta väliltä, lisäät, poistat jne. kunnes alkuperäinen lista on tyhjä.

Pieni esimerkki, joka arpoo kohdat yksitellen. Tuohon vain kehittelet jonkinmoisen loopin, joka päättyy, kun ListCount on 0, eli kun lista on tyhjä.

Private Sub Command1_Click()

Dim kohta As Integer

kohta = Int(Rnd * List1.ListCount)
List2.AddItem List1.List(kohta)
List1.RemoveItem kohta

End Sub

Jos kohdat eivät saa kadota alkuperäisestä listasta, suosittelen, että kopioit listan taulukkoon, ja arvot ne sieltä.