Geen reacties in dit onderwerp

[houthalen]

Met deze kleine code, toegevoegd aan een timer, creëer ik een verschuiving van getallen
in 5 labels van rechts naar links, een soort lichkrant
Code:

Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2) & Left(Label1.Caption, 1)
Label2.Caption = Mid(Label2.Caption, 2) & Left(Label2.Caption, 1)
Label3.Caption = Mid(Label3.Caption, 2) & Left(Label3.Caption, 1)
Label4.Caption = Mid(Label4.Caption, 2) & Left(Label4.Caption, 1)
Label5.Caption = Mid(Label5.Caption, 2) & Left(Label5.Caption, 1)
End Sub

De inhoud van de labels  wordt via tekstbox ingevoerd
Code:

Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub
Private Sub Text2_Change()
Label2.Caption = Text2.Text
End Sub
'..... text 3, 4, 5

De lengte van de inhoud (getallen)  van labels kan natuurlijk verschillend van elkaar zijn.
Daarom  zit  ik met twee problemen:

1 - Vooraleer de inhoud aan de linkerkant volledig verdwenen is, is deze aan de rechterkant al opnieuw beginnen te lopen.
Terwijl het de bedoeling is dat de inhoud aan de linkerkant eerst volledig verdwijnt, en pas dan aan de rechterkant herbegint.


2 - Het schuiven van de inhoud van de verschillende etiketten moeten worden gesynchroniseerd,
maar lukt niet altijd l vanwege het eerste probleem.

Wat toe te voegen, te wijzigen om de stroom te optimaliseren?
dank
houthalen