创建一个Time控件、Label1控件，代码如下：Private Sub Form_Load()Timer1.Interval = 500End SubPrivate Sub Timer1_Timer()a = Int(Rnd * 256)b = Int(Rnd * 256)c = Int(Rnd * 256)Label1.ForeColor = RGB(a, b, c)End Sub就可以实现Label1控件的字体随机颜色变换。
在vb中，字体随机颜色是怎么用代码实现的？
创建一个Time控件、Label1控件，代码如下：
Private Sub Form_Load()Timer1.Interval = 500End SubPrivate Sub Timer1_Timer()a = Int(Rnd * 256)b = Int(Rnd * 256)c = Int(Rnd * 256)Label1.ForeColor = RGB(a, b, c)End Sub就可以实现Label1控件的字体随机颜色变换。
2017-12-26
Private Sub Option11_Click()
a = Int(Rnd * 256)
b = Int(Rnd * 256)
c = Int(Rnd * 256)
Text1.ForeColor = RGB(a, b, c)
End Sub2013-11-21
用rgb()函数来实现,代码如下randomizergb(int(rnd*255),int(rnd*255),int(rnd*255))这就生成了一个随机的颜色,直接用就可以了 ,比如me.backcolor=rgb(int(rnd*255),int(rnd*255),int(rnd*255))2013-11-21
a=int(Rnd*256)
b=int(Rnd*256)
C=int(Rnd*256)
text1.forecolor=RGB(a,b,c)2013-11-21
