dotNETportal.cz

Mám na formuláři 10 Combobxů no a do všech potřebuju zadat stejný items, a mám je všechny pojmenovaný ComboBox1 až ComboBox10. Takže mě napadlo, při mojí lenosti že by to šlo doplnit cyklem for, ale nevím jak to doplnit o tu proměnou

Dim z As Integer
        For z = 1 To 10
            ComboBox(z).Items.Add("sakldj"))
        Next

Napadlo mě teda že ta proměnná z by mohla být v závorce, ale nemohla, takže nevím jak jí tam mám zakomponovat. Předem děkuji za odpovědi.

No v .Netu nelze názvy proměnných z designeru používat jako pole.

Máte na vybranou buď si proměnné v konstruktoru vytvořit dynamicky jako pole, pak je můžete procházet cykly.

Nebo pomocí fce. Find v příslušné kolekci.

For i As Integer = 1 To 10
       Dim cb As ComboBox = Me.Controls.Find("ComboBox" & i.ToString(), False)(0)
       cb.Items.Add("ddd")
Next

Vůbec není nutné používat metodou Find, kterou se to zbytečně zpomalí:

For index = 0 To 9
  DirectCast(Me.Controls("ComboBox" & index.ToString()), _
             ComboBox).Items.Add("Položka")
Next

Zrovna tady bych právě Find doporučil použít a to s druhým parametrem True, bude to méně náchylné ke změnám a rozdíl v rychlosti bude naprosto zanedbatelný (na málokterém formuláři bývá víc než desítky komponent, takže jestli to hledá rekurzivně nebo ne je skoro jedno).

A oceníte to ve chvíli, kdy za půl roku někdo ty ComboBoxy vezme a umístí je třeba do komponenty Frame apod. Me.Controls(něco) pak už nic nenajde, protože nebudou přímo potomky formuláře.

Pokud v budoucnu existuje možnost, že se to bude takto předělávat, pak ano. Na jednoduché věci ale ne. "méně náchylné ke změnám" - to nechápu, je tím snad myšleno "méně náchylné k chybám při změnách"? Frame tím je asi myšleno GroupBox?

U většiny aplikací, se kterými jsem se setkal, takováhle možnost skutečně existovala a "myslet dopředu" tímto nebo podobným způsobem se vyplatilo.