HILFE BEI VB

KLuex

Blinklicht

Wie kann ich einen überlangen Text in einer
Textbox durchlaufen lassen?! Blinklicht

Blinklicht

So wie marquee?!

Danke

ThiefMaster

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Private Sub Timer1_Timer()
Dim Num2div As Integer

Num2div = Text1.Width / 68 'wieviele zeichen passen sichtbar
                           'in das feld?

Start:
Text1.Text = " " & Text1.Text
If Len(Text1.Text) >= Num2div + 25 Then Text1.Text = "BLABLABLA": GoTo Start:
End Sub

Der Code dürfte eigentlich selbsterklärend sein

KLuex

Danke!!

Forensoftware: Burning Board 2.3.1, entwickelt von WoltLab GmbH