加一个timer控件和一个按钮
Timer1.Interval = 1000
Timer1.Enabled = True
timer也是一个循环了
然后用按钮控制(Timer1.Enabled)暂停或继续
窗体最顶上加上Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
需要暂停的时候调用
sleep(1000)'1000表示暂停1秒 以此类推
欢迎分享,转载请注明来源:内存溢出
加一个timer控件和一个按钮
Timer1.Interval = 1000
Timer1.Enabled = True
timer也是一个循环了
然后用按钮控制(Timer1.Enabled)暂停或继续
窗体最顶上加上Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
需要暂停的时候调用
sleep(1000)'1000表示暂停1秒 以此类推
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)