VB.NET 等待延时函数

最新推荐文章于 2025-05-31 19:23:21 发布

weixin_34121282

最新推荐文章于 2025-05-31 19:23:21 发布

阅读量1.3k

点赞数

原文链接：http://www.cnblogs.com/lwl0606/archive/2009/09/08/1562299.html

版权

本文介绍VB.NET中实现指定时间等待的方法及如何使用DoEvents函数释放UI控制权，使用户有机会中断长时间运行的任务。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VB.NET 等待延时函数

Threading.Thread.Sleep(3000)
Application.DoEvents()

Sleep(3000)也就是说3秒内什么也不能做。
（不知道多线程可以不）。
Windows.Forms.Application.DoEvents()这个函数是是放弃程序的控制权。一般在循环中加入DoEvents，目的是为了给用户一个取消的机会，所以应该有个公用变量作为用户中断标志，并在DoEvents后进行判断，是否退出Do循环。

Protected Sub WaitingSeconds(ByVal seconds As Integer)
Dim tmpNow As Date = Now
While Now.Subtract(tmpNow).Seconds < seconds
Windows.Forms.Application.DoEvents()
End While
End Sub

转载于:https://www.cnblogs.com/lwl0606/archive/2009/09/08/1562299.html