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 | ||||||
Mehr Tipps: Anzahl der Elemente in einem Steuerelementefeld ermitteln
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!
Nutzen Sie unsere Suchfunktion:
Nach oben
Sitemap
Impressum
Datenschutz
Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.