vb.net等待几秒 vb 等待时间

在VB.net中我想实现“先暂停该程序，等其他程序运行完再继续执行该程序”的功能，请问怎么实现？

详细查看了你的问题，完全不需要使用线程sleep的方法。

在这边，我要给你引入一个概念。就是Form窗体的两个方法。

Form.Show()和Form.ShowDialog()

第一个Show方法运行后，你的主程序还是会进行，你的代码还是会继续进行下去。此时，窗体还是弹出的。

第二个ShowDialog方法运行后，此时，弹出的一个窗体，你不将其关闭，那么，主程序就会一直等待这个窗体关闭后，才执行后面的代码。

所以，你只需要使用showdialog这个方法，即可达到你想要的结果。

那么，如何才能让弹出的窗体不改变呢？很简单

你可以找到窗体的formcloseing事件，在这个事件中，有一个参数：e

这个e有一个属性，就是e.handle，表示是否处理过这个事件了。

这个时候，如果你不想让窗体关闭，你可以写：

e.handle=true，那么表示已经处理过窗体关闭的事件了。

注：有些情况，可能是：e.cancel=true

相关问答

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

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

Q2: VB.NET写一个按钮倒数5秒后自动执行button事件

Dim so As Integer

Dim A As Integer

Private Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 1000

A = 1

End Sub

Private Sub Timer1_Timer()

so = so + 1

If A = 0 Then

so = 0

Me.Caption = "正常运行"

Exit Sub

Else

Me.Caption = so

If so = 6 Then

so = 0

' 触发button事件

End If

End If

End Sub

Q3: vb.net 等待上个命令执行完成,进行下个命令

送你一个延迟函数单位毫秒

Public Sub delay(ByRef Interval As Double)

On Error Resume Next

Dim time As DateTime = DateTime.Now

Dim Span As Double = Interval * 10000000 '因为时间是以100纳秒为单位。

While ((DateTime.Now.Ticks - time.Ticks) Span)

Application.DoEvents()

End While

End Sub

Q4: VB.net2013中如何让for....next循环一次等待1秒(或多秒）再循环一次等1秒，直到循环结束。

        Dim s As String = "123456789"

        For i = 1 To Len(s)

            TextBox1.Text = TextBox1.Text  Mid(s, i, 1)

            System.Threading.Thread.Sleep(1000)

            Application.DoEvents()

        Next

Q5: VB.net timer.Interval = 2000 ，计时器间隔为2秒 不懂这个间隔

timer要用timer.start（）开始记时，timer.Interval = 2000简单来说：在timer事件下一个textbox.selectAll()两秒全选一次textbox内容，运行不完不会有什么影响，线程等内容现在不必考虑