vb.net中如何加延时的简单介绍

VB.NET的几种延时方法

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

vb中如何实现延时功能？

可以用定时器，设置个中断时间间隔，时间一到就进入中断，可用于按一定规律延时的情况。

也可以用Timer函数，如以下是延时100ms:

T1=Timer

Do While(Timer-T10.1)

X=DoEvents

LOOP

注意，用这二种方法的延时只有在延时时间20ms以上才比较准，时间越小越不准。

怎么在vb 中加入延时命令

在窗体添加一个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