VB5.0中实现字体闪烁效果

Author: 范明之 Date: 1998年第23期 13版

　　用Visual Basic我们可设计出形形色色符合用户要求的应用程序，它确实是一种很好的用户程序开发工具，可VB提供的基本控件中都没有闪烁属性设置，使应用程序界面缺乏“活性”，近期笔者设计软件封面时，就要求字体不断地闪烁，为此，经反复分析、实践，最后终于成功地实现字体闪烁效果，现将设计过程说明如下：
　　（1）创建一个新目标文件（project1），并建立一个窗体Form1。
　　（2）在Form1上配置一个计时器控制Timer1、标签控件Label1、命令控件Command1。
　　（3）各控件属性设置：
　　Timer1的Enabled设置为True;
　　Label1的Caption设置为需闪烁的字体：“江西省黎川县职业中专电脑室设计”、
Font设置字体及大小、Backstyle设置为“0－Transparent”；
　　Command1中的Caption设置为“退出”。
　　（4）程序代码清单：
　　Option Explicit
　　Private Sub Form_ Load（）
　　Label1.Top=850　　
　　　′设置闪烁字体的显示位置
　　Label1.Left=750
　　Timer1.Interval=555　　
　　′设置字体闪烁间隔时间
　　Form1.Windowstate=2
　　End Sub
　　′利用计时器控件Timer有规律地改变字体颜色（Forecolor）
　　Private Sub Timer1_Timer（）
　　Chc Label1，1，4，8
　　End Sub
　　′Chc过程是循环地改变字体颜色（Forecolor）
　　Sub Chc（Cont As Control，Color1 As Integer，Color2 As Integer，Color3 As Integer）
　　If Val（Cont.Tag）=Color1 Then
　　Cont.Tag=Color2
　　ElseIf Val（Cont.Tag）=Color2 Then
　　Cont.Tag=Color3
　　ElseIf Val（Cont.Tag）=Color3 Then
　　Cont.Tag=Color1
　　Else
　　Cont.Tag=Color1
　　End If
　　Cont.ForeColor=QBColor（Cont.Tag）
　　End Sub
　　Private Sub Command1_Click（）
　　End
　　End Sub
　　程序除标签控件外，还适用于许多VB基本控件，实现诸多闪烁效果，例如：闪烁文本框、闪烁文件列表框等，极大丰富了VB应用程序界面，相当实用。
　　此设计也适用VB3.0、VB4.0。