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
网站栏目:vb.net延时函数的简单介绍
文章源于:http://pwwzsj.com/article/dssgdjg.html