创建动画的窗体标题

Question

如上

Answer 1

Dim a As StringPrivate Sub Form_Load()
    Me.Caption = "有动画效果的窗体标题"
    '将窗体标题存放在变量a中，以供各过程使用
    a = Form1.Caption
    '将两个定时器置为无效
    Timer1.Enabled = False
    Timer2.Enabled = False
End SubPrivate Sub Command1_Click()
    Timer1.Interval = 100
    Timer2.Enabled = False
    Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
    Me.Caption = Space(15) & a  '在窗体标题前加20个空格
    Timer2.Interval = 100
    Timer1.Enabled = False
    Timer2.Enabled = True
End Sub
Private Sub Timer1_Timer()
    Dim t As String
    Static i As Integer
    '取得窗体标题的前i个字符
    t = Left(a, i)
    '重新设置窗体的标题
    Form1.Caption = t
    i = i + 1
    '如果窗体标题已显示完毕，则重新逐个显示字符
    If i > Len(a) Then i = 0
End SubPrivate Sub Timer2_Timer()
    '产生标题循环滚动效果
    Me.Caption = Right$(Me.Caption, Len(Me.Caption) - 1) & Left$(Me.Caption, 1)
End Sub

Answer 2

Me.Caption = Right$(Me.Caption, Len(Me.Caption) - 1) & Left$(Me.Caption, 1)
这条语句经典！