Question

VB，，求能让text背景颜色不断变化的代码！！！！

Answer 1

楼上的只能变两种颜色，不太好吧Private g As IntegerPrivate Sub Form_Load()
Timer1.Interval = 200 End SubPrivate Sub Timer1_Timer()
If g <= 15 Then
Text1.BackColor = QBColor(g)
g = g + 1
Else
g = 0
End If
End Sub

Answer 2

' 在Form上添加一个Timer控件Private g_index As IntegerPrivate Sub Form_Load()
Timer1.Interval = 200 ' 颜色变化间隔
End SubPrivate Sub Timer1_Timer()
If g_index Mod 2 = 0 Then
Text1.BackColor = vbRed
Else
Text1.BackColor = vbWhite
End If
g_index = g_index + 1
End Sub

Answer 3

让变成哪几种颜色就输如如果随即就加randomize颜色变成rgb(rnd*255,rnd*255,rnd*255)

Answer 4

用timer控件即可