让窗体“动”起来

孙春美 
2001年 41期

　　我们在用VB编写程序时，经常要设置窗体标题。如果我们能让窗体的标题动态显示，使整个窗体有种动态效果，就能增加VB程序的生动性。下面就是一个特效窗体标题显示程序。
　　　　首先，新建一个工程，设置好窗体的大小、位置、字体及字体颜色。然后在窗体上添加一个计时器。接下来就是编写如下的程序代码：
　　　　Dim words As String ＇定义一个变量，用来存储窗体的标题
　　　　Dim i As Integer
　　　　Dim txtword As String ＇定义一个变量，用来存储标题中的单个字符
　　　　Dim lenth As Integer ＇定义此变量用来存储窗体标题的长度
　　　　Private Sub Form_Load（）　
　　　　Me.Caption = "如何创建动态显示的窗体标题" ＇此标题根据实际窗体设置
　　　　words = Form1.Caption
　　　　Timer1.Interval = 300
　　　　Timer1.Enabled = True ＇启用定时器
　　　　Form1.Caption = "" ＇将窗体标题清空
　　　　End Sub
　　　　Private Sub Timer1_Timer（）　
　　　　lenth = Len（words）　
　　　　txtword = Left（words，i）＇取得窗体标题的前第i个字符
　　　　Form1.Caption = txtword ＇动态设置窗体的标题
　　　　i = i + 1
　　　　If i > lenth Then ＇窗体标题显示完毕，循环动态显示窗体标题
　　　　i = 0
　　　　End If
　　　　End Sub
　　　　赶快按下F5运行一下，看看效果如何吧！ 
 