Rubrik: Oberfläche · Effekte | VB-Versionen: VB4, VB5, VB6 | 04.09.02 |
Laufschrift in der Titelzeile Ein Beispiel, wie sich eine Laufschrift in der Titelzeile realisieren lässt. | ||
Autor: Florian Platzer | Bewertung: | Views: 16.233 |
www.vbmaster.gbadmin.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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