扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Imports System.Threading
成都创新互联企业建站,10年网站建设经验，专注于网站建设技术，精于网页设计，有多年建站和网站代运营经验，设计师为客户打造网络企业风格，提供周到的建站售前咨询和贴心的售后服务。对于网站制作、做网站中不同领域进行深入了解和探索，创新互联在网站建设中充分了解客户行业的需求，以灵动的思维在网页中充分展现，通过对客户行业精准市场调研，为客户提供的解决方案。
Thread.Sleep(1000)’延迟1秒
2.PauseWait(1000)’延迟1秒
Public Sub PauseWait(ByVal HowLong As Long)
Dim tick As Long
tick = My.Computer.Clock.TickCount
Do
My.Application.DoEvents()
Loop Until tick + HowLong My.Computer.Clock.TickCount
End Sub
可以用定时器，设置个中断时间间隔，时间一到就进入中断，可用于按一定规律延时的情况。
也可以用Timer函数，如以下是延时100ms:
T1=Timer
Do While(Timer-T10.1)
X=DoEvents
LOOP
注意，用这二种方法的延时只有在延时时间20ms以上才比较准，时间越小越不准。
在窗体添加一个Timer和一个Command
Private Sub Command1_Click()
Me.Timer1.Interval = 30 * 1000 '定时30秒
Me.Timer1.Enabled = True
Do
If Not Timer1.Enabled Then MsgBox "时间到！": Exit Sub
DoEvents
Loop
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Me.Timer1.Enabled = False
End Sub
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网