Question

在vb里，怎么敲代码使两个文本框不停交换颜色，才学到第三单元窗体和

在vb里，怎么敲代码使两个文本框不停交换颜色，才学到第三单元窗体和基本控件，谢谢

Answer 1

Private Sub Form_Load()
Text1.BackColor = vbRed
Text2.BackColor = vbBlue
Timer1.Interval = 200
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim a As Long
a = Text2.BackColor
Text2.BackColor = Text1.BackColor
Text1.BackColor = a
End Sub

追问

没学时间的那个

追答

添加一个时间控件代码如上