vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Grafik und Font · Grafische Effekte   |   VB-Versionen: VB2005, VB200826.03.09
Eine weitere Laufschrift (NewsTicker)

Ein Code zur Realisierung eines Newstickers (Laufschrift).

Autor:   Dietrich HerrmannBewertung:  Views:  18.534 
ohne HomepageSystem:  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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.