如何用VB在窗体中实现闪烁文字

        闪烁的文字可以在屏幕上起到明显的提示作用。通过使用VB数据库编程的Timer控件，程序员可以轻松的在窗体上实现闪烁文字的效果。本文将演示如何为Label控件加上闪烁效果，这种方法同样适用于其它多种控件。

　　当你在窗体上加入Timer控件时，它只出现在设计时，而不会在运行时出现可见的控件图标。Timer控件带有两个重要的参数。Interval（间隔）属性用来确定Timer控件多久触发一次，其单位为毫秒，因此当该值为500时，就表示一秒钟会触发两次。Enabled（使能）属性用来确定Timer控件是运行（Enabled = True）还是停止（Enabled = False）状态。

　　实际的闪烁是在Timer事件中完成的，Timer控件每次触发，程序都会调用Timer事件。我们可以将Label控件的ForeColor属性设置为黑色（可见）以及和BackColor属性一致的颜色（文字和背景色一致，相当于不可见）。以下代码可以完成检验ForeColor属性的任务：

 

　　Private Sub Timer1_Timer()

 

　　If Label1.ForeColor = Label1.BackColor Then

 

　　Label1.ForeColor = vbBlack

 

　　Else

 

　　Label1.ForeColor = Label1.BackColor

 

　　End If

 

　　End Sub

 

　　另外，你也可以让文字采用不同的颜色，比如交替采用红色和绿色：

 

　　Private Sub Timer1_Timer()

 

　　If Label1.ForeColor = vbRed Then

 

　　Label1.ForeColor = vbGreen

 

　　Else

 

　　Label1.ForeColor = vbRed

 

　　End If

 

　　End Sub

以上就是参考数据库书籍所得出的编程代码结论。