vb.net延迟几秒,vb 延迟一秒

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

相关问答

Q1: vb.net第一次连接数据库很慢,有没有解决办法??

.net以及java等采用中间代码程序的通用的弱点，第一次运行需要编译成机器码。目前基本上没有什么好解决方法，这样做的好处是为了增加程序的移植性，能为你省调一些其他的麻烦。

Q2: 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

Q3: 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

Q4: vb。net 缓两秒执行一段程序

可以利用Timer时钟控件实现，这样做的好处是无需等待，释放CPU时间去做别的事