Dim GlavnaLista As ArrayList = New ArrayList
Dim SporednaLista As ArrayList = New ArrayList
Sad npr. dodajemo neke celobrojne vrednosti u sporednu listu:
SporednaLista.Add(14)
SporednaLista.Add(27)
SporednaLista.Add(39)
I onda tu sporednu listu dodamo u glavnu listu:
GlavnaLista.Add( SporednaLista )
Pristupamo toj sporednoj listi ( Item(0) ), i njezinom 2. elementu ( Item(1) ):
Dim x As Integer = Ctype(GlavnaLista.Item(0), ArrayList).Item(1)
Eto.
Naravno možeš da napraviš i nešto tipa:
Dim GlavnaLista As ArrayList = New Arraylist
Dim SporednaLista(50) As ArrayList
SporednaLista(0) = New ArrayList
SporednaLista.Add(11)
SporednaLista.Add(17)
GlavnaLista.Add( SporednaLista(0) )
SporednaLista(1) = New ArrayList
SporednaLista.Add(50)
SporednaLista.Add(51)
SporednaLista.Add(52)
GlavnaLista.Add( SporednaLista(1) )
...
i onda npr:
Dim x As Integer = Ctype ( GlavnaLista.Item(1), ArrayList).Item(2)
daje 52.
Ima tu dosta rešenja..
Preporučeno slušanje: Allanis Morrissette -
Jagged Little Array :)))
Commercial-Free !!!