灯的闪烁问题。

Question

加个Timer控件控制Label的BackColor属性

Answer 1

[email protected]
你把你的邮件地址发到这里我给你代码，我自己写的

Answer 2

Private Sub Timer1_Timer()
Static k As Boolean
    k = Not k
    If k Then
        Label1.BackColor = vbRed
    Else
        Label1.BackColor = vbGreen
    End If
End Sub

Answer 3

Private Sub Timer1_Timer()'
dim r as integer'RED数值
dim g as integer'GREEN数值
dim b as integer'BLUE数值
   r=int(rnd*255)'RED数值是随机产生的,在0~255之间,下同,注意不可以并在一起,否则相等了
   g=int(rnd*255)
   b=int(rnd*255)
   label1.backcolor=rgb(r,g,b)'定义的是RGB颜色型
End Sub

Answer 4

time控件的执行时间空隔自己定