
用vb实现标签中文字颜色0.5秒一变,求代码
展开全部
在窗体加入一个Label,一个Timer,属性默认
Private Sub Form_Load()
Timer1.Interval = 500 '时间间隔0.5s
End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))'将label文字变为随机颜色
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询