请问各位大侠如何在vb中实现1ms精度的定时?
解决方案 »
- 如何加快搜索内存地址数据速度
- ProgressBar被StatusBar挡住了,怎么办?
- 着急.怎样用自己的代码实现双面打印和纸盒选择
- 关于VB的日期?
- keybd_event怪问题?
- 如何在vb中取消mdiform的最大化按钮?立刻给分
- 能不能将ADODC控件中的RECORE SOURCE(SQL语句)在程序里实现。
- ole的问题
- 当我有很多行东西要显示时Text控件怎么不会自动出来一个滚动条?我如何添加滚动条?有没有会自动出来滚动条的类似Text的控件?
- turbo vision--是什么软件?就是turboC吗?
- 很简单的问题 出现“实时错误10054”怎么解决
- 怎样使一个过程(sub)执行时间精确到毫秒
3000=1s,
ms和s之间的关系你自己再算了.
timer的interver单位是ms,1s=1000ms
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim start As Long
Private Sub Form_Load()
start = GetTickCount ' prim
SleepEx 1, 0 ' after a period
MsgBox GetTickCount - start & "ms" 'test the period
End Sub