我想在一个LABEL控件中让它里面的字一会变成红的又一会变成绿的。不停的变换闪烁，做成闪烁字幕怎么写代码啊？谢！

加上一个timer控件，，在它的click事件里面写代码，判断时间，让label的backcolor属性改变！

时间怎么控制啊。
能不能直接控制backcolor 更改呢

放入一个timer控件,控制时间

大哥 你编一个让小弟看看

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.ForeColor = System.Drawing.Color.Red

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Label1.ForeColor = System.Drawing.Color.Pink End Sub 經過測試,通過!TIMER1 的INTERVAL 為1000,TIMER2 的INTERVAL 為1500. 不要設置為整數倍數. 誰有更好的方法.請貼上來.

剛試出一個好的方法. 可以做出多種顏色的交換顯示.三個TIMER的INTERVAL都一樣. Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick Label1.BackColor = System.Drawing.Color.Red Timer1.Enabled = False Timer2.Enabled = True End Sub

Private Sub Timer2_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer2.Tick Label1.BackColor = System.Drawing.Color.SeaGreen Timer2.Enabled = False Timer3.Enabled = True End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick Label1.BackColor = System.Drawing.Color.LightGray Timer3.Enabled = False Timer1.Enabled = True End Sub 哈哈哈!!!試試!!!是不是很爽呀!!!! O-LA-O-LA

一个TIMER控件就够了
Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
static a as integer
a=a+1
select case a
case is = 1
Label1.BackColor = System.Drawing.Color.Red
case is = 2
Label1.BackColor = System.Drawing.Color.SeaGreen
if a =2then
a=0
end if
end sub

由此看来，如果要n中状态，让a递增，取a/n余数，然后case下去，编成一个类，存起来需要的话直接用就行

？？？？？？？？
生成时乍看不到字颜色在改变啊，
还要在属性中改什么吗，谢谢！！