利用 timeGetTime 更精準(zhǔn)地計(jì)算時(shí)間差

1、利用 timeGetTime 更精準(zhǔn)地計(jì)算時(shí)間差。 我想每 0.005 秒做某一件工作， 所以撰寫了以下程序：Dim tm1 As SingleDo tm1 = Timer While Timer - tm1 < 0.005 ' 等于 0.005 秒 DoEvents Wend .做某一件工作Loop但實(shí)際上， 在 While 循環(huán)里面， Timer 函數(shù)幾乎每次都得到相同的時(shí)間，只有大約隔了 0.05秒才會(huì)得到不同的時(shí)間， 也就是說 Timer 的準(zhǔn)確性只有 0.05 秒， 但我希望進(jìn)行的工作卻是每 0.005 秒一次， 該怎么辦呢？可以改用 Windows API 的 tim

2、eGetTime 函數(shù)， 此一函數(shù)會(huì)傳回 Windows 開機(jī)以來所經(jīng)過的時(shí)間，時(shí)間單位是 1/1000 秒， 舉例來說， 開機(jī)經(jīng)過 2 分鐘， 則傳回值等于 2*60*1000， timeGetTime 的優(yōu)點(diǎn)是時(shí)間可以精確到 1/1000 秒， 所以可以用來解決上述的問題，細(xì)節(jié)如下：1. API 的聲明：Private Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long注：如果以上的聲明放在一般模塊底下， 應(yīng)將 Declare 之前的 Private

3、保留字去掉。2. 程序范例：Dim tm1 As LongDo tm1 = timeGetTime While timeGetTime - tm1 < 5 ' 等于 5/1000 = 0.005 秒 DoEvents Wend .做某一件工作Loop 快速讀取 TextBox 第 N 行的資料 TextBox 是以 vbCr+vbLf 為分行符號(hào)， 如果我們要逐一讀取 TextBox 每一行，無非是尋找 vbCr+vbLf 的所在位置， 然后取出每一行的字串， 不過這個(gè)方法真的不快，而且如果我們要讀取第 N 行資料， 還是要從第 1、2、N-1 行逐一讀起， 實(shí)在麻煩。還好 Wi

4、ndows API 提供有讀取 TextBox 第 N 行的功能， 細(xì)節(jié)如下：1. API 的聲明：Const EM_GETLINE = &HC4Const EM_LINELENGTH = &HC1Const EM_LINEINDEX = &HBBPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As

5、Any) As LongPrivate Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)注：如果以上的聲明放在一般模塊底下， 應(yīng)在 Const 之前加上 Public 保留字， 并且將 Private 保留字去掉。2. 程序范例：Sub TB_GetLine(ByVal hWnd As Long, ByVal whichLine As Long, Line As String) Dim length As Long, bArr()

6、 As Byte, bArr2() As Byte, lc As Long lc = SendMessage(hWnd, EM_LINEINDEX, whichLine, ByVal 0&) length = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&) If length > 0 Then ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte Call RtlMoveMemory(bArr(0), length, 2) Call SendMessage(hWnd, EM_GETLINE, whichLine, bArr(0) Call RtlMoveMemory(bArr2(0), bArr(0), length) Line = StrConv(bArr2, vbUnicode) Else Line = "" End IfEnd Sub' 假設(shè)要讀取 Text1