Animierte StatusBar - " Text "
11.01.2004 13:44:26
marc
ich will in der StatusBar einen animierten Text ausgeben (Laufschrift ).
Gestern habe ich im Archiv etwas gefunden.Text als blinkende Animation.
Wie kann ich den Text von links nach rechts bewegen bzw. von rechts nach links.
marc :o) ...
------------------------------------------------------------------
Sub Blinken()
TextBlinkenLassen ("Marc sagt Guten morgen!"), 10, 10000
End Sub
------------------------------------------------------------------
Sub TextBlinkenLassen(Blinktext, Blinkanzahl, Blinkdauer)
For y = 1 To Blinkanzahl
For i = 1 To Blinkdauer
Application.StatusBar = Blinktext
DoEvents
Next
For i = 1 To Blinkdauer
Application.StatusBar = ""
DoEvents
Next
Next y
Application.StatusBar = False
End Sub
Anzeige