Laufschrift (Tempo) in Userform
10.04.2008 16:33:06
Matthias
brüte mal wieder über ein Problem. Ich möchte gern in einer Userform (Textfeld) eine Laufschrift haben. Habe auch eine Code dafür gefunden (siehe unten). Ich möchte aber, dass die Laufschrift bei Initialisierung des Userform ausgeführt wird. Das zweite Problem ist das Tempo der Laufschrift. Es wäre schön, wenn diese ein wenig langsamer wäre, dann kann man den Text auch lesen.
Option Explicit
Dim Lauftext As String
Dim Halt As Boolean
Private Sub CommandButton1_Click()
Dim J As Integer
Halt = False
'Den Lauftext einstellen
If Lauftext = Empty Then _
Lauftext = "www.vbarchiv.de *** "
Do Until Halt = True
'Kurz warten
For J = 0 To 10000: DoEvents: Next
DoEvents
'Hinten an den Lauftext das 1. Zeichen anhängen
Lauftext = Lauftext & Mid(Lauftext, 1, 1)
'Vom Lauftext das 1. Zeichen wegnehmen
Lauftext = Mid(Lauftext, 2, Len(Lauftext) - 1)
'Den Lauftext zuweisen
Text1.Text = Lauftext
Loop
End Sub
Vielen Dank für Eure Hilfe im Voraus
Matthias
Anzeige