Endlos laufender Formular-Titel mit Timer
| Endlos laufender Formular-Titel mit Timer. Rotate Caption | |
| Mit API-Function siehe 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 sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. 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.