怎么计算某事件运行所需要的时间

Question

比如计算一个click事件完成所需要的时间，精确到毫秒怎么写呢

Answer 1

在事件代码的第一行记录当时的时间,在退出事件是再记录退出时的时间,两者相减即可.
Private Sub yourEvent()
Dim MyTimer as Timer 
Dim SngExeTime as single
myTimer=Timer 你的代码
SngExeTime=Timer-MyTimer   '得到执行的毫秒数
End Sub

Answer 2

运行不对啊说myTimer=Timer这句出错。

Answer 3

使用GetTickCount Windows API函数可返回 Windows 启动以来消失的毫秒数。其精度高于VB的Timer 函数
先声明API函数
Private Declare Function GetTickCount Lib "kernel32" () As Long记录开始时Click事件开始时和结束时的值，其差额即是你要的值。
如：
Private Sub Command1_Click()
    Dim lngBegin As Long, lngEnd As Long
    Dim I As Long
    lngBegin = GetTickCount() '记录开始时间
    '这里执行你的代码
    For I = 0 To 500000
    
    Next I
    
    '''
    lngEnd = GetTickCount '结束时间
    
    Print lngEnd - lngBegin '毫秒差
End Sub

Answer 4

不好意思
声明myTimer为single类型的变量 不是声明为Timer 我写错了

Answer 5

VB的内部控件是没有办法做到更小的.
建议用C语言.