Muutama visual basic kysymys.
Haen kuvia Image -kenttään. Miten saan määriteltyä, että kaikki hakemani kuvat näkyvät siinä samankokoisina? Ja, että ylipäänsä mahtuvat image -kenttään. Ja myöskin samassa kuvasuhteessa 2:2 . Nyt osa kuvista liian pieniä ja osa liian isoja.
Entä miten saan tehtyä tekstin (Label?), joka liikkuu ikkunan oikeasta reunasta vasempaan reunaan jatkuvasti? Siis kun se menee vasemmasta reunasta ulos niin tulee taas oikeasta takaisin.
Kiitos jos joku osaa helppiä.
Haen kuvia Image -kenttään. Miten saan määriteltyä, että kaikki hakemani kuvat näkyvät siinä samankokoisina? Ja, että ylipäänsä mahtuvat image -kenttään. Ja myöskin samassa kuvasuhteessa 2:2 . Nyt osa kuvista liian pieniä ja osa liian isoja.
Entä miten saan tehtyä tekstin (Label?), joka liikkuu ikkunan oikeasta reunasta vasempaan reunaan jatkuvasti? Siis kun se menee vasemmasta reunasta ulos niin tulee taas oikeasta takaisin.
Kiitos jos joku osaa helppiä.
Vastaukset 4
Vanhimmat
Laita Label1 ja Timer1, Timer1 Interval arvoksi jokin sopiva, vaikka 200.
Kirjoita seuraava koodi:
Dim teksti As String
Dim s, pituus As Integer
Private Sub Form_Load()
teksti = "Tämä teksti liukuu labelissa"
pituus = Len(teksti)
End Sub
Private Sub Timer1_Timer()
s = s 1
If s > pituus Then s = 1
Label1.Caption = Mid(teksti, s, pituus - s 1)
End Sub
--------------------------------------------------
Tuosta Imagesta, jos laitat Stretch = True niin saattaa auttaa asiaa, kuvasuhde määräytyy kuitenkin Image.Width ja Image.Height arvojen mukaan, tee niille säätimet.
Kiitos vinkistä. Nyt teksti siis liikkuu vasemmalta oikealla, mutta mitenhän saisin määriteltyä paikan mistä teksti lähtee liikkeelle.
Tolla koodilla siis teksti ei lähde vasemmasta reunasta, kulje ulos oikeasta reunasta ja tule senjälkeen taas ulos vasemmasta reunasta. Mitä pitäisi muuttaa, että se toimisi noin ?
Niin siis tarkotus oisi saada semmonen, että teksti tulee sisään oikeasta reunasta ja kulkee kohti vasenta reunaa josta menee ulos. Ja sitten taas tulee sisään oikeesta raunasta ikkunaa.
Dim s As Integer
Private Sub Form_Load()
Label1.Caption = "Tämä teksti liukuu labelina"
Label1.Left = Form1.Left Form1.Width
End Sub
Private Sub Timer1_Timer()
's:aan summattava luvun arvo määrää kuinka nopeaa
'Label1 liikkuu
s = s 50
If Label1.Left < Form1.Left - Label1.Width Then
s = 0
Label1.Left = Form1.Left Form1.Width
End If
Label1.Left = Form1.Left Form1.Width - s
End Sub