clstiming.cls

来自「一款Grid表格控件源代码,非常棒.不下你一定会后悔」· CLS 代码 · 共 50 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsTiming"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private Declare Function QueryPerformanceCounter Lib "KERNEL32" (lpPerformanceCount As Currency) As Long

Private Declare Function QueryPerformanceFrequency Lib "KERNEL32" (lpFrequency As Currency) As Long

Private m_Frequency   As Currency
Private m_Start       As Currency
Private m_Now         As Currency
Private m_Available   As Boolean

Private Sub Class_Initialize()

    m_Available = (QueryPerformanceFrequency(m_Frequency) <> 0)

    If Not m_Available Then
        Debug.Print "Performance Counter not available"
    End If

End Sub

Friend Function Elapsed() As Double

    QueryPerformanceCounter m_Now
    If m_Available Then
        Elapsed = 1000 * (m_Now - m_Start) / m_Frequency
    End If

End Function

Friend Sub Reset()

    QueryPerformanceCounter m_Start

End Sub