Private Sub Form_Load()
Me.Caption = "有动画效果的窗体标题"
'将窗体标题存放在变量a中,以供各过程使用
a = Form1.Caption
'将两个定时器置为无效
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Command1_Click()
Timer1.Interval = 100
Timer2.Enabled = False
Timer1.Enabled = True
End Sub
Private 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 Sub
Private Sub Timer2_Timer()
'产生标题循环滚动效果
Me.Caption = Right$(Me.Caption, Len(Me.Caption) - 1) & Left$(Me.Caption, 1)
End Sub