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

2025-03-11 08:59:53
推荐回答(1个)
回答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