Question

VB 中：如何让TEXT的背景颜色自动变化？

用一个Timer控件如何使文本框的背景颜色变化？

Answer 1

'这是一个随机改变text背景色的代码,
Private Sub Form_Load()
Timer1.Interval = 3000
End Sub
Private Sub Timer1_Timer()
Randomize
Text1.BackColor = Choose(Fix(Rnd * 8) + 1, vbBlack, vbRed, vbBlue, vbCyan, vbWhite, vbYellow, vbGreen, vbMagenta)
End Sub

Answer 2

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

Private Sub Timer1_Timer()
Randomize
Text1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub