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

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

2、000秒，舉例來說，開機(jī)經(jīng)過2分鐘，則傳回值等于2*60*1000，timeGetTime的優(yōu)點(diǎn)是時(shí)間可以精確到1/1000秒，所以可以用來解決上述的問題，細(xì)節(jié)如下：1. API的聲明：PrivateDeclareFunctiontimeGetTimeLib"winmm.dll"Alias"timeGetTime"()AsLong注：如果以上的聲明放在一般模塊底下，應(yīng)將Declare之前的Private保留字去掉。2. 程序范例：Dimtm1AsLongDotm1=timeGetTimeWhiletimeGetTime-tm1<5'等于5/

3、1000=0.005秒DoEventsWend.做某一件工作Loop快速讀取TextBox第N行的資料TextBox是以vbCr+vbLf為分行符號(hào)，如果我們要逐一讀取TextBox每一行，無非是尋找vbCr+vbLf的所在位置，然后取出每一行的字串，不過這個(gè)方法真的不快，而且如果我們要讀取第N行資料，還是要從第1、2、一N-1行逐一讀起，實(shí)在麻煩。還好WindowsAPI提供有讀取TextBox第N行的功能，細(xì)節(jié)如下：1. API的聲明：ConstEM_GETLINE=&HC4ConstEM_LINELENGTH=&HC1ConstEM_LINEINDEX=&HBBP

4、rivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhWndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPrivateDeclareSubRtlMoveMemoryLib"KERNEL32"(lpvDestAsAny,lpvSourceAsAny,ByValcbCopyAsLong)注：如果以上的聲明放在一般模塊底下，應(yīng)在Const之前加上Public保留字，并且將Private

5、保留字去掉。2. 程序范例：SubTB_GetLine(ByValhWndAsLong,ByValwhichLineAsLong,LineAsString)DimlengthAsLong,bArr()AsByte,bArr2()AsByte,lcAsLonglc=SendMessage(hWnd,EM_LINEINDEX,whichLine,ByVal0&)length=SendMessage(hWnd,EM_LINELENGTH,lc,ByVal0&)Iflength>0ThenReDimbArr(length+1)AsByte,bArr2(length-1)AsByteCallRtlMoveMemory(bArr(0),length,2)CallSendMessage(hWnd,EM_GETLINE,whichLine,bArr(0)CallRtlMoveMemory(bArr2(0),bArr(0),length)Line=StrConv(bArr2,vbUnicode)ElseLine=""EndIfEndSub' 假設(shè)要讀取Text1第