Endlos laufender Formular-Titel mit Timer

Endlos laufender Formular-Titel mit Timer. Rotate Caption
Mit API-Function siehe Seite 506
Use a timer. When the timer fires, reset the form's caption shifted by one character.
Private Sub ShiftCaption(Optional Initialising As Boolean = False)
Static pos As Integer
Dim lsCaption As String
If Initialising Then
pos = 100
frmS.TimerCaption.Enabled = True
frmS.TimerCaption.Interval = 50
End If
lsCaption = App.Title & " version " & App.Major & "." & App.Minor & " Build : " & App.Revision & " .........."
If Visible = True Then
If pos = 0 Then
frmS.Caption = lsCaption
Else
frmS.Caption = Mid(lsCaption, pos) & Left(lsCaption, pos - 1)
End If
End If
If pos + 2 < Len(lsCaption) Then
pos = pos + 2
Else
pos = 0
End If
frmS.Refresh
End Sub
Private Sub Form_Load()
ShiftCaption True
End Sub
Private Sub TimerCaption_Timer()
ShiftCaption False
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt