Question

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

Answer 1

可用Timer控件对窗体上Label控件的属性ForeColor 赋值来实现。

ForeColor 属性

ForeColor－返回或设置在对象里显示图片和文本的前景颜色。

Timer 控件

通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

实现代码

Private Sub Form_Load()
    Timer1.Interval = 200
    Label1.FontSize = 36
End Sub

Private Sub Timer1_Timer()
    Static i As Long
    Label1.ForeColor = QBColor(i)
    i = i + 1
    If i Mod 15 = 0 Then i = 0
End Sub

Answer 2

当你在窗体上加入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 = vbBlackElseLabel1.ForeColor = Label1.BackColorEnd IfEnd Sub另外，你也可以让文字采用不同的颜色，比如交替采用红色和绿色： Private Sub Timer1_Timer() If Label1.ForeColor = vbRed Then Label1.ForeColor = vbGreenElseLabel1.ForeColor = vbRedEnd IfEnd Sub当你停止文字闪烁时，还要确定文字的状态是可见的并且采用了合适的色彩。要完成这个功能，你需要在停止闪烁时加入以下代码设置ForeColor属性：