利用KERNEL32 API函数实现的通用延时函数DELAY
2004-12-15 09:18
330 查看
利用KERNEL32 API函数实现的通延时函数DELAY():
使用这个函数,就能轻松的实现启动窗体时需要延时几秒钟的愿望了,而且,不会因为机器性能的不同,而造成动态效果有太大的差别,因为依靠的是时间的间隔(当然,如果还是486就不好说了),精度在0.05秒左右。
Public Declare Function GetTickCount Lib "kernel32" () As Long
Const MS_DELAY = 50 '20FPS
Public Function Delay(Times As Single)
Dim mblnRunning As Boolean
Dim mlngTimer As Long
Dim caculate As Single
mblnRunning = True
caculate = 0
Do While mblnRunning And caculate < Times
If mlngTimer + MS_DELAY <= GetTickCount() Then
mlngTimer = GetTickCount()
caculate = caculate + 0.05
End If
DoEvents 'Important,or you can do nothing while delaying!
Loop
End Function
使用这个函数,就能轻松的实现启动窗体时需要延时几秒钟的愿望了,而且,不会因为机器性能的不同,而造成动态效果有太大的差别,因为依靠的是时间的间隔(当然,如果还是486就不好说了),精度在0.05秒左右。
Public Declare Function GetTickCount Lib "kernel32" () As Long
Const MS_DELAY = 50 '20FPS
Public Function Delay(Times As Single)
Dim mblnRunning As Boolean
Dim mlngTimer As Long
Dim caculate As Single
mblnRunning = True
caculate = 0
Do While mblnRunning And caculate < Times
If mlngTimer + MS_DELAY <= GetTickCount() Then
mlngTimer = GetTickCount()
caculate = caculate + 0.05
End If
DoEvents 'Important,or you can do nothing while delaying!
Loop
End Function
相关文章推荐
- EGL--延时函数实现文件 DELAY.INC
- proxy 利用get拦截,实现一个生成各种DOM节点的通用函数dom。
- 利用C++11的function和bind功能,实现QStandardItemModel的通用遍历函数
- 通用排序函数的功能实现(利用接口和委托实现泛型[通用]排序)
- 用Debug函数实现API函数的跟踪[转]
- 一步步点亮LED5_汇编编写延时函数并实现LED闪烁效果
- 利用chart函数实现折线图
- 半阈值化的应用说明及利用函数threshold实现半阈值化的方法
- 一些通用的函数实现
- 一个利用递归算法实现删除非空目录的函数
- 续:利用XML实现通用WEB报表打印(实现篇)
- 利用handler的延时实现app载入时loading
- 利用函数实现的oracle行列转换
- 利用XML实现通用WEB报表打印(2)
- 利用一款不常见的API函数实现窗口的淡入淡出
- php利用内置的svn函数实现的svn版本号的提交、更新、删除、恢复等功能
- 利用Keil调试精确实现软件延时
- 【HTML/JS】利用JQuery的load函数动态加载其它页面的内容的实现代码
- 请修改append函数,利用这个函数实现
- 利用recv和readn函数实现readline函数