怎样制作VB闪烁文字？

怎样制作VB闪烁文字？

闪烁字，实际上就是字体颜色随着时间不断变化
以下示例：
模型：窗体Form1，定时器Timer1
Private Sub Form_Load()
Timer1.Interval = 100'设置定时器为0.1s触发以此
End Sub

Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then'如果Label字体颜色为红色
Label1.ForeColor = vbblue'则改为蓝色
Else
Label1.ForeColor = vbRed'如果不是红色，则改为红色，从而实现字体颜色红蓝交替变化，达到闪烁效果。
End If
End Sub

'添加一个timer控件设置interval=1000 添加一个label控件 示例代码如下： private sub timer1_timer() static b as integer b = b + 1 if b > 3 then b = 1 if b = 1 then label1.forecolor = vbred elseif b = 2 then label1.forecolor = vbgreen elseif b = 3 then label1.forecolor = vbyellow end if end sub

用 imgae 加 timer 时钟控制两张图片文字,不断切换既可.

在窗体上加入Timer控件,设置Interval（间隔）属性，用来确定Timer控件多久触发一次，其单位为毫秒，当该值为500时，表示一秒钟会触发两次。 Private Sub Timer1_Timer() If Label1.ForeColor = vbRed Then Label1.ForeColor = vbGreen '颜色 Else Label1.ForeColor = vbRed '颜色 End If End Sub