Question

在vb中，字体随机颜色是怎么用代码实现的？

Answer 1

创建一个Time控件、Label1控件，代码如下：

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
a = Int(Rnd * 256)
b = Int(Rnd * 256)
c = Int(Rnd * 256)
Label1.ForeColor = RGB(a, b, c)
End Sub

就可以实现Label1控件的字体随机颜色变换。

Answer 2

用rgb()函数来实现,代码如下randomizergb(int(rnd*255),int(rnd*255),int(rnd*255))这就生成了一个随机的颜色,直接用就可以了 ,比如me.backcolor=rgb(int(rnd*255),int(rnd*255),int(rnd*255))

Answer 3

Private Sub Option11_Click()
a = Int(Rnd * 256)
b = Int(Rnd * 256)
c = Int(Rnd * 256)
Text1.ForeColor = RGB(a, b, c)
End Sub

Answer 4

a=int(Rnd*256)
b=int(Rnd*256)
C=int(Rnd*256)
text1.forecolor=RGB(a,b,c)