VB.NET 等待 延时函数

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

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值