关于VB timer控件

来源：百度知道 编辑：UC知道 时间：2024/05/15 10:52:16
问个关于VB timer控件的问题
把text1.text内容移动到text2.text
然后经过0.5秒把text1.text=""
这应该怎么编啊？

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

为了效果的突出，时间放大了10倍。
Public n As Integer
Private Sub Form_Load()
n = 1
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If Text2.Text <> Text1.Text Then
Text2.Text = Text1.Text
End If
If n < 6 Then
n = n + 1
Else
Text2.Text = ""
Timer1.Enabled = False
End If
End Sub

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

Private Sub Command1_Click()
Text2 = Text1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Text1 = ""
Timer1.Enabled = False
End Sub