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

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

为嘉峪关等地区用户提供了全套网页设计制作服务，及嘉峪关网站建设行业解决方案。主营业务为成都网站设计、成都网站建设、嘉峪关网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

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

翻译成汇编就是：

(R0为传递参数)

DELAY:

MOV R1,#200

DJNZ R1,$

DJNZ R0,DELAY

RET

vb.net 怎么延迟

学习一下后台线程，

看一下3个timer类，

实在想简单，就在UI线程里用timer控件去实现

怎么在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

VB.net 如何ping一个ip地址并获取延迟值？

Dim b As Boolean = My.Computer.Network.Ping("192.168.1.1", 1000) '返回ping结果，true表示通，false表示不通，1000表示1000毫秒内返回结果 

If b = True Then '指定时间内ping通

Shell("cmd /c ping 192.168.1.1  C:\time.txt") '在C盘time.txt文件中保存ping的结果

Else '超时

MsgBox("999") '弹出999提示

End If

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

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