vb中怎样获取两事件间隔时间?

来源：百度知道 编辑：UC知道 时间：2024/05/13 08:52:49
请高手来指教一下，VB中怎样才能获取两事件的间隔时间（精确到毫秒）啊？有没有类似 gettime(事件a，事件b）之类的语句啊？
如果事件a和事件b不同，应该怎么弄？如果两事件相同（比如，都是单击某按钮）又该怎么弄啊?
一二楼的方法都挺好,但是(为什么我总说但是)zillsavaga先生或女士的方法,我运行的时候电脑说没有定义这个子程序,xttts先生或女士的方法,我不太懂啊,不知道设什么为零,又怎么读数据啊.我承认自己不聪明,所以希望说明白一点.请以form1.load
form1.click两事件为例,来一段程序,再以cmd1.click发生两次为例来段程序,谢谢了.

使用Windows API函数 timeGetTime() 就可以获得从开机以来到现在所经过的时间（毫秒级别）

事件1时 设定一个变量A = timeGetTime()
事件2时 interval = timeGetTime() - A 就是你要的间隔时间

细节如下：
1. API 的声明：
Private Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long 注：如果以上的声明放在「一般模块」底下， 应将 Declare 之前的 Private 保留字去掉。
2. 程序范例：
Dim A As Long

Private sub form1_click()
A = timeGetTime()
end sub

private sub cmd1_click()
time = timeGetTime() - A
end sub

用timer控件，第一个事件发生时设为0，第二个事件发生时读数据即可。