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

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

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

我们提供的服务有:成都做网站、网站制作、微信公众号开发、网站优化、网站认证、扎鲁特旗ssl等。为1000多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的扎鲁特旗网站制作公司

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

Form.Show()和Form.ShowDialog()

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

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

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

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

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

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

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

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

注:有些情况,可能是:e.cancel=true

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

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

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

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

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

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

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


当前文章:vb.net等待几秒 vb 等待时间
本文链接:http://scyanting.com/article/hidpoj.html