Springen naar inhoud


- - - - -
VB6

Een Gesyncroniseerd Lichtkrant Van Verschillende Labels



  • Log in a.u.b. om te beantwoorden
Geen reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 26 april 2015 - 19:48

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





Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)