Hallo,
auf einer userform möchte ich einen Lauftext mit ca. 200 Zeichen installieren. Macht man das in einer Textbox? Hat jemand von Euch einen Code dafür?
Danke und Gruß
Wilhelm
Hallo,
auf einer userform möchte ich einen Lauftext mit ca. 200
Zeichen installieren. Macht man das in einer Textbox? Hat
jemand von Euch einen Code dafür?
dafür würde ich lieber ein Label nehmen, aber ich habe Dir den Code mal für die Textbox geschrieben …
Option Explicit
' Auf der Form muß eine Textbox und ein Timer liegen
Dim text As String
Dim l As Integer
Dim z As Integer
Private Sub Form\_Load()
text = "Testtext Testtext "
l = Len(text)
z = 10 'es sollen immer 10 Zeichen angezeigt werden
text = text + Left(text, l)
Timer1.Interval = 300
End Sub
Private Sub Timer1\_Timer()
Static pos
pos = pos + 1
If pos \> l Then pos = 1
Text1.text = Mid(text, pos, z)
End Sub
Hilft das? Fragen?
Gruß, Rainer
Hi Rainer,
Dein code ist elegant, er ist perfekt, aber … er läuft bei mir nicht, wahrscheinlich einfach deswegen, weil ich noch nie nicht von einem auf der Form liegenden Timer gehört habe (und der Geburtstag rückt immer näher!)
Also, wenn Du Lust hast und Dir ein Dankedenkmal bei mir verdienen willst, pack einfach code und Timer auf eine Form und schick sie mir als eMail-Anhang.
Gruß
Wilhelm
Du hast Post
Hi,
Dein code ist elegant, er ist perfekt,
nein, aber funktionstüchtig. 
schick sie mir als eMail-Anhang.
Ist passiert.
Gruß, Rainer