| 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 | |
| |
zurück