
展开全部
在一个时钟过程中写入你要改变的颜色,就可以了。比如我随机改变颜色(设置interval的属性值为2000,意思是间隔2秒改变一次)
Private Sub Timer1_Timer()
Randomize
Dim r, g, b
r = 255 * Rnd
g = 255 * Rnd
b = 255 * Rnd
Me.BackColor = RGB(r, g, b)
End Sub
Private Sub Timer1_Timer()
Randomize
Dim r, g, b
r = 255 * Rnd
g = 255 * Rnd
b = 255 * Rnd
Me.BackColor = RGB(r, g, b)
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询