vb.net延时函数的简单介绍

如何正确理解VB.NET延时函数

第一个for完成对delay_time参数的控制，即共循环多少次内部循环

创新互联于2013年开始，先为西畴等服务建站，西畴等地企业，进行企业商务咨询服务。为西畴企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

第二个for（内部循环），完成对j从0到199的控制，共循环200次。

翻译成汇编就是：

(R0为传递参数)

DELAY:

MOV R1,#200

DJNZ R1,$

DJNZ R0,DELAY

RET

vb.net,如下代码，我想在MsgBox("A")和MsgBox("B")之间延时3秒(两个msgbox要在同一个Sub）

Private Sub Button1_Click()

MsgBox("A")

Threading.Thread.Sleep(3000)

MsgBox("B")

End Sub

如果暂停的3秒有影响，就给他开一个线程：

Private Sub Button1_Click()

Dim th As New Threading.Thread(AddressOf MsgBoxProc)

th.Start()

End Sub

Private Sub MsgBoxProc()

MsgBox("A")

Threading.Thread.Sleep(3000)

MsgBox("B")

End Sub

PDCA上传延时怎么编写代码VB.NET

1. Threading.Thread.Sleep(...)

优点： 简单

缺点： Sleep期间程序（其实是该线程）没有任何响应。

2. Timer(定时器)

定时器有3种。Forms.Timer/ Timers.Timer/ Threading.Timer

第一种是在当前线程启动事件处理，第二种在事件发生时会启动一临时线程处理事件，第三种在事件发生时在一临时线程中调用指定的回调函数。

优点： 不阻塞当前线程

缺点： 需要定义一事件函数以处理定时事件。

3. DoEvents(保证消息循环)

可以使用一循环执行定时。代码示例：

Public Shared Sub Sleep(ByVal Interval)

Dim __time As DateTime = DateTime.Now

Dim __Span As Int64 = Interval * 10000 '因为时间是以100纳秒为单位。

While (DateTime.Now.Ticks - __time.Ticks __Span)

Application.DoEvents()

End While

End Sub

优点： 不阻塞当前线程的消息循环。

缺点： 不能保证消息处理能否及时回来。

===========================================

结论：

1. 在没有消息循环线程中，使用Thread.Sleep

2. 在带消息循环线程中，如果需要定时执行一段程序，使用Forms.Timer

3. 在带消息循环线程中，若只想延时一段时间，请使用上面示例中自定义的Sleep

4. 若要保证定时精度，请使用Threading.Timer或Timers.Timer.(这两个只是调用接口不一样， 一个是回调函数，一个是事件；前者更精确些)

vb.net使用Sleep后有些代码没有执行！

在VB.NET中，带框架窗体的大小是不能为0的，要想做到高、宽都为0，需要自己重绘一个无边框窗体，用外置图片来绘制，配合PS做一些图片，既可以换肤还能做的很漂亮。

按当前代码修改，你把下面的代码粘回去就可以了，窗体的高和宽达到最小时，循环会自己退出，避免无限循环；

Select Case 2

Case Is = 1

Dim w As Integer = Me.Width

Do

Me.Width -= 5 : w -= 5

Threading.Thread.Sleep(3)

Loop While Me.Width = w

Case Is = 2

Dim h As Integer = Me.Height

Do

Me.Height -= 5 : h -= 5

Threading.Thread.Sleep(3)

Loop While Me.Height = h

Case Is = 3

Do

Me.Opacity -= 0.05

Threading.Thread.Sleep(120)

Loop Until Me.Opacity = 0

End Select

VB.NET的几种延时方法

Imports System.Threading

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