Rubrik: Grafik und Font · Grafische Effekte | VB-Versionen: VB2005, VB2008 | 26.03.09 |
Eine weitere Laufschrift (NewsTicker) Ein Code zur Realisierung eines Newstickers (Laufschrift). | ||
Autor: Dietrich Herrmann | Bewertung: | Views: 18.534 |
ohne Homepage | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Angeregt von dem Tipp Laufschrift mit Hintergrund-Farbverlauf (VB.NET) entstand eine weitere, etwas andere Lösung für eine Laufschrift in WinForms.
Mein Ansatz für den NewsTicker ist anders als im Tipp von Dieter Otter. Ich realisiere den Ticker nicht grafisch, sondern nur mit Panel und Labels. Ziel war, einen einfachen horizontalen Newsticker zu erstellen, der Texte beliebiger Länge ohne Unterbrechung als Laufschrift anzeigt.
Im Folgenden der Code mit Kurzbeschreibungen:
Der Ticker kann leicht selbst nachgebaut werden, der Code zu einer Form mit den Elementen ist fast selbsterklärend.
Es wird auf der Form ein Panel positioniert und evtl. ein wenig formatiert. Wichtig für dieses Panel ist, dass es der Container für den Ticker ist. Seine Breite bestimmt den gesamten Ablauf.
Ins Panel setzt man zwei Label-Controls (Autosize=True !). Im Vereinbarungsteil der Form steht der Lauftext selbst (den man allerdings auch aus einer externen Quelle lesen könnte, txt- oder xml-File).
Es werden noch der Font und die Farbe für den Lauftext definiert.
Prinzip für den Ticker ist, dass, ausgehend von der Länge des Lauftexts und von der Breite des Panels, die Labels so mit dem Vielfachen des Textes gefüllt werden, dass eine Labelbreite grösser als die Panelbreite wird. Auch bei einem sehr langen Text braucht man zwei Labels, denn wenn der Text links verschwindet, soll der ja schon rechts wieder hervor kommen.
Der Timer steuert die Bewegung der Labels; sein Interval steuert die Geschwindigkeit.
Public Class Form1 ' Text, der als Laufschrift angezeigt werden soll Dim sAnimatedText As String = "Herzlich Willkommen bei " & _ "www.vbarchiv.net - die deutschsprachige Internetseite, " & _ "wenn es ums Programmieren mit Visual Basic geht +++ " Dim txFont As Font = New Font("Arial", 14.0F, FontStyle.Regular) Dim txColor As Color = Color.Blue ' Timer-Objekt zum Steuern der Laufschrift Dim WithEvents oTimer As Timer
Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load With Label1 .Parent = Panel1 .Text = sAnimatedText .Font = txFont .ForeColor = txColor .Left = .Parent.Right .Top = (.Parent.Height - .Height) / 2 End With Dim faktor As Short = Panel1.Width / Label1.Width - 1 For i As Short = 0 To faktor - 1 Label1.Text += sAnimatedText Next With Label2 .Parent = Panel1 .Font = txFont .ForeColor = txColor .Top = Label1.Top .Left = Label1.Right .Text = Label1.Text End With ' Timer starten oTimer = New Timer oTimer.Interval = 30 oTimer.Start() End Sub
Private Sub oTimer_Tick(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles oTimer.Tick ' bewegen der Labels Label1.Left -= 1 Label2.Left -= 1 If Label2.Right < 0 Then Label2.Left = Label1.Right If Label1.Right < 0 Then Label1.Left = Label2.Right End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing ' Timer stoppen oTimer.Stop() oTimer.Dispose() End Sub
End Class