Question

vb彩色字体是怎么做的？

效果是字体会一闪一闪的 代码好象是Label*.ForeColor = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())

可是我不会用啊
高手帮我

Answer 1

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
Dim s As String
s = "这是要输出的字符串"
Label1.Caption = s
Label1.AutoSize = True
End Sub

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

Answer 2

用TIMER控件
Private Sub Form_Load()
Timer1.Interval = 400
End Sub

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