Combot = Array()

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-
2276
Äänestä

Muut lukivat myös

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

Äänestä
  • Arvasinkin että joku helppo keino on olemassa, mutta kun itsellä ei tietokapasiteetti riitä niin on hienoa että muut auttavat :)

    Kiitos!

    Äänestä

Kommentoi aloitusta


Pasi kirjoitti:

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-

Anonyymi
5000

Ilmoita asiaton sisältö

  • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

  • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

  • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

  • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

  • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

  • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

Jaa keskustelu