Mer om Timer

Timer RadioButton

I en tidigare lektion fick vi en label att förflytta sig i en For Next-slinga. Om vi i stället lägger koden i en timer, utförs den med jämna mellanrum så länge man önskar.

Lägg ut en knapp, en timer och en label på formen. Sätt en färg på labeln. I Properties för timern står det från början Enable False och Interval 100. Det kan få vara så. Dubbelklicka på timern och skriv

Label1.Left += 5

If Label1.Left > Me.Width Then
   Label1.Left = 0
End If

Det här betyder att labeln förflyttar sig 5 pixlar åt höger varje gång timern uppdaterar sig, i det här fallet 10 gånger per sekund. När labelns vänsterkant har fått samma värde som formens bredd, Me.Width, har labeln hamnat utanför formens högra kant och skall då dyka upp i vänsterkanten igen.

Eftersom vi satt Enable till False kan vi med knappen starta klockan och därmed labelns vandring genom att skriva:

Timer1.Enable=True

i knappen.
Timer Radio Button

© SupportData.Net