'需要一個(gè)時(shí)鐘控件
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
cs
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
cs
End Sub
Sub cs()
MsgBox "測(cè)試"
Timer1.Enabled = True
End Sub
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
