AW: Laufschrift in Userform
08.11.2013 18:07:29
drower04
Habe in einem anderen Forum folgenden Code gefunden:
Option Explicit
Dim Lauftext As String
Dim Halt As Boolean
' Laufschrift von rechts nach links
Private Sub Command1_Click()
Dim I As Integer
Halt = False
' Den Lauftext einstellen
If Lauftext = Empty Then _
Lauftext = "www.vbarchiv.de *** "
Do Until Halt = True
' Kurz warten
For I = 0 To 15000: 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
' Laufschrift von links nach rechts
Private Sub Command2_Click()
Dim I As Integer
Halt = False
' Den Lauftext einstellen
If Lauftext = Empty Then _
Lauftext = "www.vbarchiv.de *** "
Do Until Halt = True
' Kurz warten
For I = 0 To 15000: DoEvents: Next
DoEvents
' Vorne an den Lauftext das Letze Zeichen anhängen
Lauftext = Mid(Lauftext, Len(Lauftext), 1) & _
Lauftext
' Das letze Zeichen wegnehmen
Lauftext = Mid(Lauftext, 1, Len(Lauftext) - 1)
' Den Lauftext zuweisen
Text1.Text = Lauftext
Loop
End Sub
' Anzeige unterbrechen
Private Sub Command3_Click()
Halt = True
End Sub
hier kann man die Durchlaufgeschwindigkeit problemlos erhöhen, das Problem ist allerdings, dass es hier nicht möglich ist den Vorgang bereits beim Öffnen der Userform zu starten ohne eine Fehlermeldung zu erhalten. Kann man beide Herangehensweisen irgendwie kombinieren?
Viele Grüße