如何实现霓虹灯效果

张海峰
2000年 第36期 

　　Visual Basic是一种易用、易学、功能强大的编程语言，利用Visual Basic我们可以很容易地设计出符合用户要求的各种应用程序，但是Visual Basic 所提供的各种控件中都没有闪烁属性设置，这就使应用程序界面有一种“呆板”的感觉，无法表现出动感。最近笔者在设计软件封面时，要求字体不断地变化，呈现出一种霓虹灯的效果。本人经反复分析、实践，最后设计出了霓虹灯效果，现将设计过程说明如下：
    （1）创建一个新目标文件Project1，并建立一个窗体Form1。
　　（2）在Form1上放置一个计时器控件Timer1、标签控件Label1、命令控件Command1。
　　（3）各控件属性设置如^36020401a^：
　　（4）程序代码清单：
　　Option Explicit
　　Private Sub Command1_Click（）
　　　End
　　End Sub
　　Private Sub Form_Load（）
　　Label1.Top=1850　′设置闪烁字体的显示位置
　　Label1.Left=Screen.Width/8
　　Timer1.Interval=500　′设置字体闪烁间隔时间
　　　Command1.Top=Screen.Height/1.5　′设置按钮在窗体中的位置
　　　Command1.Left=Screen.Width/2
　　　Form1.WindowState=2　′设置窗体最大化
　　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
　　′利用计时器控件Timer有规律地改变字体颜色（ForeColor）
　　Private Sub Timer1_Timer（）
　　　　chc Label1，2，6，12
　　End Sub
　　我想，在你的程序启动画面中加上霓虹灯效果的话，其界面友好性一定能使用户更加满意。

 