如何转 换数据类型LARGE_INTEGER 到VB里？

[Don_Hanson]

要在VB里生命一个API函数：
BOOL QueryPerformanceFrequency(LARGE_INTEGER *lpFrequency);
(详见：Microsoft MSDN
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/timers/timerreference/timerfunctions/queryperformancefrequency.asp)

请问，如何在VB中定义其参数中的数据类型LARGE_INTEGER呢？

[supergreenbean]

http://www.applevb.com/art/timing.htm

[JYQing]

如果Long类型不行就使用Currency吧

[of123]

自定义类型：
Public Type LARGE_INTEGER
lowpart As Long
highpart As Long
End Type

[of123]

计算前用下列函数转成 Double：

Private Function CLargeInt(Lo As Long, Hi As Long) As Double
'This function converts the LARGE_INTEGER data type to a double
Dim dblLo As Double, dblHi As Double

If Lo < 0 Then
dblLo = 2 ^ 32 + Lo
Else
dblLo = Lo
End If

If Hi < 0 Then
dblHi = 2 ^ 32 + Hi
Else
dblHi = Hi
End If
CLargeInt = dblLo + dblHi * 2 ^ 32
End Function

[pheonixdie]

VB的API浏览器里有这个类型的声明啊