Aloitin juuri ohjelmoinnin harjoittelun Visual
Basicillä ja nyt tarvitsisin apua.
Minulla on kolme picture boxia, joden nimet
ovat: Kuva1, Kuva2, Kuva3.
Tahtoisin napin painalluksesta muuttaa niiden
Visible-arvon falseksi. Onko mahdollista tehdä
looppi joka laskurinsa lukeman perusteella osaisi
tehdä tuon arvojen vaihdon.
esim
i = 0
while i < 3
Kuva[i].Visible = False
i = i 1
wend
Ei toimi näin, mutta idea tuli varmaan selväksi.
Sinänsähän sillä ei tässä tapauksessa ole
merkitystä tekeekö loopin vai ei,
mutta nämä on varmasti sellaisia "Hyvä tietää"-
asioita joihin tulee jatkossa
törmäämään.
Tuomas
p.s. tietääkö kukaan ilmaista news-palvelinta
josta voisi käydä lukumassa ja lähettämässä
sfnetin palstoja?
Basicillä ja nyt tarvitsisin apua.
Minulla on kolme picture boxia, joden nimet
ovat: Kuva1, Kuva2, Kuva3.
Tahtoisin napin painalluksesta muuttaa niiden
Visible-arvon falseksi. Onko mahdollista tehdä
looppi joka laskurinsa lukeman perusteella osaisi
tehdä tuon arvojen vaihdon.
esim
i = 0
while i < 3
Kuva[i].Visible = False
i = i 1
wend
Ei toimi näin, mutta idea tuli varmaan selväksi.
Sinänsähän sillä ei tässä tapauksessa ole
merkitystä tekeekö loopin vai ei,
mutta nämä on varmasti sellaisia "Hyvä tietää"-
asioita joihin tulee jatkossa
törmäämään.
Tuomas
p.s. tietääkö kukaan ilmaista news-palvelinta
josta voisi käydä lukumassa ja lähettämässä
sfnetin palstoja?
Vastaukset 2
Vanhimmat
Syntaksicheckausta en tehnyt ja jotain ei ehkä
ole 100% oikein, koska kirjoitin tämän suoraan
tähän, eli tässä yksi kömpelö tapa, alempana
looppi-esimerkki.
Globaaliin kohtaan seuraava muuttuja:
Dim i As Integer
ja napin Clickiin seuraava koodi:
Kuva1.Visible = False
Kuva2.Visible = False
Kuva3.Visible = False
i = i + 1
If i > 3 then i = 0
Select Case i
Case 1:Kuva1.Visible = True
Case 2:Kuva2.Visible = True
Case 3:Kuva3.Visible = True
End Select
Ja jos teet kuvista "Array"n niin sitten onnistuu
se loopaus myös ilman edellä mainittua selectiä,
eli annat kuvaobjekteille saman nimen jolloin VB
kysyy haluatko tehdä Arrayn. Huomioi että
indeksit alkavat nollasta, eli eka kuva on "Kuvat
(0).Visible=False" jne
Tässä vähän koodia
i=0
While i < Kuvat.Count
Kuvat[i].Visible = False
i = i + 1
Wend
Tuli sun hakasulut [] mukaan vaikka piti olla
tavalliset siis näin "Kuvat(i).Visible = False"