Laufschrift in der Titelzeile Ein Beispiel, wie sich eine Laufschrift in der Titelzeile realisieren lässt.
Autor:   Florian Platzer	Bewertung:     [ Jetzt bewerten ]	Views:  16.774
www.vbmaster.gbadmin.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Das nachfolgende Beispiel zeigt, wie sich eine Laufschrift in der Titelzeile realisieren lässt. Und zwar so, dass der Original-Titel stehen bleibt, wobei der Laufschrifttext von rechts nach links exakt bis zum ursprünglichen Fenstertitel durchläuft.

Alles, was Sie hierzu benötigen, ist ein Timer-Steuerelement:

Private Sub Form_Load()
  ' Timer starten
  Timer1.Interval = 50
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  Static l As Integer
  Static t As Integer
  Static sText As String
  Static sCaption As String
 
 
  If sCaption = "" Then
    ' ursprünglicher Titel der Form
    sCaption = Me.Caption
  End If
 
  ' Laufschrift-Text
  If sText = "" Then
    sText = "www.vbarchiv.de"
    l = 100 ' nach Formbreite variieren
    t = 1
  End If
 
  ' Lauftext ausgeben
  If l = 1 Then
    If Len(sText) - t > 0 Then
      sText = Right$(sText, Len(sText) - t)
    Else
      sText = ""
    End If
    Me.Caption = sCaption & sText
    t = t + 1
    Timer1.Interval = 100
  Else
    Timer1.Interval = 50
    Me.Caption = sCaption & Space$(l) & sText
    l = l - 1
  End If
End Sub