Private Sub Form_Load() Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer() Static Count As Integer Count = IIf(Count <带穗漏 120, Count + 1, 120) If Count = 120 Then MsgBox "时间到"蠢烂族答: Timer1.Enabled = FalseEnd Sub
Timer1.Interval = 65535如果我要编写2分钟怎么办？
Simone
发布于 2023-03-25 18:31:08
624 阅读
