Kirjautuminen

Haku

Tehtävät

Kilpailu

Putka Open 2025
4. kierros:
7.11. klo 18 – 9.11. klo 23

Keskustelu: Koodit: VB6: Liikkuva teksti

Bill Keltanen [25.02.2004 08:43:42]

#

Tää on semmone mikä pyörittää tekstii niinku HTML:ssä marquee, Label1 ja Timer1 Formille

'Form1
Private Sub Form_Load()

    Label1.Caption = "Tällee tää tehää "
    Timer1.Enabled = True
    Timer1.Interval = 300
End Sub



Private Sub Timer1_Timer()

    Dim str As String
    str = Form1.Label1.Caption
    str = Mid$(str, 2, Len(str)) + Left(str, 1)


    Label1.Caption = str
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta