在VB 中 字体随机变色

来源：百度知道 编辑：UC知道 时间：2024/05/25 01:35:41
在vb中 怎么产生字体 每秒 随机 变色
代码是什么？
用timer么？
怎么编写这个代码？
单击变色 字体开始变色 单击停止 颜色不再改变

将Timer的Interval属性设为1000
Private Sub Timer1_Timer()
对象名.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub

要想单击改变字体颜色，再加两个事件代码。
在窗体上放一个标签，两个按钮，一个计时器，用下面的代码。
Private Sub command1_click()
Timer1.Enabled = True
End Sub
Private Sub command2_click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Command1.Caption = "变色"
Command2.Caption = "停止"
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub

一楼的说的很好。
那就在窗体上加一个Click事件，内容是：
timer1.enabled=false，就行了。

Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

timer的interval属性设为1000

我是用标签的文字来做

如果是text的话就是text1.forecolor呵呵

其他的以此类推

用定时器时间设为一秒,加代码对象颜色等于VBcolor(rnd*255,rnd*255,rnd*255)