Eine weitere Laufschrift (NewsTicker) Ein Code zur Realisierung eines Newstickers (Laufschrift).
Autor:   Dietrich Herrmann	Bewertung:     [ Jetzt bewerten ]	Views:  18.979
ohne Homepage	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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