在VB中实现延时的几种方法
1、 DoEvents 方法
DoEvents 方法用来激活 Windows 循环,它也可以用来模拟微秒延时。DoEvents 函数有一个参数,指定要等待的微秒数,其中一个微秒等于一百万分之一秒。要在 VB 中实现延时,可以使用 DoEvents 函数,具体使用方法如下:
Sub Delay(duration as Integer)
dimStartTime as Date
StartTime = Now
Do
DoEvents
End Sub
在上面的代码中,duration 参数的单位是毫秒。DoEvents 语句可以释放 CPU 资源,使其他程序有机会执行。
2、 Timer 对象
Timer 对象用来实现延时(等待)。Timer 对象可以通过在 Form 上添加 Timer 控件,将其属性设置为 True,使其属性 Interval 设置为指定的毫秒数,以实现延时的目的。Timer 控件有一个属性,可以用来控制当它的计时器到达指定值时,是否采取特定的行动,如在窗体上显示一个消息框。
3、 Sleep 函数
Sleep 函数指定操作系统多久才能继续执行当前的程序,单位是毫秒。它只能在 Windows 操作系统上使用,用法如下:Sleep(duration)
调用 Sleep 函数会导致线程挂起,它可以按照指定的参数时间量等待线程的唤醒。Sleep 函数可以在单线程中使用,但是它不能用来在多线程的环境中创建延时,因为所有线程都会被挂起,导致程序停止运行。
array在vb什么意思啊4、API函数
API 函数可用来实现延时(等待),但是必须在 VB 中使用 Declare 语句引用 Windows API 函数,以使用这些函数。以下是一个例子:
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论