Minulla on seuraavanlainen matriisi jossa on listattuna ComboBoxien nimiä. Käytän matriisia useissa yhteyksissä, mutta jos haluan vaikka saada Combot näkymättömiin niin sehän onnistuu alla olevan esimerkin mukaisesti:
Combot = Array(Combo1, Combo2, Combo3, Combo4, Combo5, Combo6, Combo6, jne.)
Combot(0).Visible = False
Combot(3).Visible = False
Combot(4).Visible = False
Combot(6).Visible = False
Yritin päästä vähemmillä riveillä luettelemalla Combojen nimet tällä tavoin:
Combot(0, 3, 4, 6).Visible = False
Eipä onnistunut ei. Onko mitään keinoa kirjoittaa koodi lyhyemmin kuin jokaiselle Combolle oma rivinsä?
Voisin tietysti ratkaista asian alla olevan mukaisesti mutta onko muuta keinoa?
Combot = Array(Combo1, Combo2, Combo3, Combo4, Combo5, Combo6, Combo6, jne.)
Numerot = Array(0, 3, 4, 6)
For Numero = 0 to 3
Combot(Numero).Visible = False
Next
-Pasi-
Combot = Array(Combo1, Combo2, Combo3, Combo4, Combo5, Combo6, Combo6, jne.)
Combot(0).Visible = False
Combot(3).Visible = False
Combot(4).Visible = False
Combot(6).Visible = False
Yritin päästä vähemmillä riveillä luettelemalla Combojen nimet tällä tavoin:
Combot(0, 3, 4, 6).Visible = False
Eipä onnistunut ei. Onko mitään keinoa kirjoittaa koodi lyhyemmin kuin jokaiselle Combolle oma rivinsä?
Voisin tietysti ratkaista asian alla olevan mukaisesti mutta onko muuta keinoa?
Combot = Array(Combo1, Combo2, Combo3, Combo4, Combo5, Combo6, Combo6, jne.)
Numerot = Array(0, 3, 4, 6)
For Numero = 0 to 3
Combot(Numero).Visible = False
Next
-Pasi-
Vastaukset 2
Vanhimmat
Vaikka näin:
For Each n In Array(0, 3, 4, 6)
Combot(n).Visible = False
Next
Tuossa n on oltava variant-tyyppinen muuttuja
- Mika
Arvasinkin että joku helppo keino on olemassa, mutta kun itsellä ei tietokapasiteetti riitä niin on hienoa että muut auttavat :)
Kiitos!