Private Sub Command1_Click()
Text1.Text = "begin"
Timer1.Enabled = True
Timer1.Interval = 5000
End SubPrivate Sub Form_Load()
Timer1.Enabled = False
Text1.Text = 0
End SubPrivate Sub Text1_Change()
Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
Text1.Text = "end"
End Sub
Text1.Text = "begin"
Timer1.Enabled = True
Timer1.Interval = 5000
End SubPrivate Sub Form_Load()
Timer1.Enabled = False
Text1.Text = 0
End SubPrivate Sub Text1_Change()
Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
Text1.Text = "end"
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货