dotNETportal.cz

Dobry vecer,

mam problem pri hromadnem promazavani listview, kde se mazou polozky odlisene jinou barvou(ForeColor). V cyklu for se dostavam mimo rozsah indexu, ale nemuzu prijit na to proc. Uz nad tim sedim dve hodiny a nemuzu se hnout z mista...

Dim X As Integer = MsgBox("Opravdu si přejete odstranit staré upomínky?", vbOKCancel + vbExclamation, "Odstranit staré položky")

        If X = vbOK Then
            For i As Integer = 0 To ListView1.Items.Count - 1
                If ListView1.Items(i).ForeColor = Color.FromKnownColor(KnownColor.Firebrick) Then
                    ListView1.Items(i).Remove()
                End If
            Next i
        End If

Jen takový nápad: Zkuste použít cyklus For Each, protože u něj se Vám tohle jistě nestane. Kdyžtak ještě napište a já to zkusím prozkoumat :-)

diky, to je ono, tohle reseni me nenapadlo...

Ten nápad s For each je dobrý, protože konstrukce s klasickým For... má dvě vady:

1) Neprojdete všechny záznamy:

pokud se totiž dostanete na záznam číslo 5, (máte i=5) a záznam vyhoví Vaší podmínce a vy jej smažete, co se stane? Záznam zmizí, záznam číslo 6 se stane pětkou, 7 se stane šestkou atd.

Vy načnete nový cyklus, ovšem z hlediska funkčnosti před náběhem do nového cyklu se vám i zvýší na 6. No a procházíte záznam číslo 6, jenomže původní šestka, která je nyní na pozici 5, ta zůstane Vaším cyklem neposkvrněná.

2) nejsem si jist, ale dle všeho ten výraz za tím To (horní limit hodnot i) se u cyklu For vyhodnotí na začátku cyklu, proto, pokud něco z kolekce odmažete, dostanete se mimo rozsah hodnot.

Zkyste tedy ten cyklus For each, nebo mám ověřeno ještě, že funguje klasický cyklus do ... while (tam se ten výraz vyhodnocuje při každém průchodu znovu), ale musíte (kvůli bodu 1) zabezpečit, že ke zvýšení čítače i dojde pouze, pokud nesmažete aktuální záznam (v praxi v jednoduchých případech dáte do Vašeho rozhodovacího příkazu ještě větev else tak, že bude-li podmínka if splněna, smažete záznam, nebude-li, zvýšíte i o 1 a jdete do dalšího cyklu.

Tak jsi to opět vyřešil :-)

Taky jsem si myslel, že For Next bude lepší, ale když se nad tím zamyslíš, tak vlastně ani není proč, protože jednoduče pracuje stále s tou samou kolekcí a je tak líný, že jí ani nechce aktualizovat. To že vyhodí chybu je docela podraz, ale myslím, že řešení s Do, je skvělé!

Při odstraňování položek z kolekce je vždy nutné postupovat pozpátku. Tj. ne od 0 do 99 ale od 99 do 0. V případě For Each je to ten samý případ, protože For Each pracuje s enumerátorem, který vnitřně prochází pole hodnot.

For index As Integer = (ListView1.SelectedItems.Count - 1) To 0 Step -1
  ListView1.Items.Remove(ListView1.SelectedItems(index).Name)
Next

Smaže všechny vybrané položky z ListView.