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

　　实际的闪烁是在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 　　

　　当你停止文字闪烁时，还要确定文字的状态是可见的并且采用了合适的色彩。要完成这个功能，你需要在停止闪烁时加入以下代码设置ForeColor属性：　　

　　Timer1.Enabled = False

　　Label1.ForeColor = vbBlack

上一篇： VB程序实现XP效果的界面
下一篇： Visual Basic的九次蜕变

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!