dotNETportal.cz

Zdravim

Prosim Vas ako zistim poradie prvku v kolekcii vo VB 2008? pretoze IndexOf nefunguje.

dik za odpoved.

IndexOf samozřejmě funguje, akorát ho patrně používáte špatně. Pošlete sem kód, kterým se snažíte zjistit pořadí, určitě najdeme, kde je problém.

Public Kolekcia As New Collection 'Deklarované v module
Dim fff As String = ListBox1.SelectedItem
Dim index As Integer = Kolekcia.IndexOf(fff)

Jestli to chápu správně, tak vy si vytvoříte novou kolekci (která je na začátku prázdná). Pak si z ListBoxu vytáhnete aktuální položku do proměnné fff, a pak tu hodnotu hledáte v té nové kolekci, která je prázdná.

Poslal jste sem celý kód? Nevím, co je v kolekci Kolekcia, v kódu ji nikde neplníte žádnými daty. Pokud tam hodnota fff není, pak IndexOf vrátí -1. Pokud tam je, vrátí její index. Čeho přesně chcete dosáhnout?

sorry, celý kód vyzerá asi takto..

       Dim INIPole() As String = {"a", "b", "c", "d", "e", "f"}
       Dim Kolekcia As New Collection  'Deklarované v module
       Dim Hodnota As String

       '..Naplnenie premennej HracStrana

       For cislo As Integer = 1 To 6
            If INIPole(cislo - 1) = HracStrana Then
            Else
                Kolekcia.Add(INIPole(cislo - 1))
            End If
       Next


       Dim PocetPrvkov As Integer = Kolekcia.Count

       For cislo As Integer = 1 To PocetPrvkov
            ListBox1.Items.Add(Kolekcia(cislo))
       Next

       Dim fff As String = ListBox1.SelectedItem
       Dim index As Integer = Kolekcia.IndexOf(fff)

Mám počiatočné hodnoty v poli, prefiltrujem ich a uložím do kolekcie, obsah kolekcie uložím do listboxu. Prebehne udalosť, zistím čo bolo označené.

Tak to je jasné, vy to totiž špatně porovnáváte. Do fff si ukládáte SelectedItem, což je ListItem, a porovnáváte to se stringem.

Předposlední řádek změňte na toto:

Dim fff As String = ListBox1.SelectedValue.ToString()