利用timeGetTime更精准地计算时间差

1、利用timeGetTime更精准地计算时间差。我想每0.005秒做某一件工作，所以撰写了以下程序：Dimtm1AsSingleDotm1=TimerWhileTimer-tm1<0.005'等于0.005秒DoEventsWend.做某一件工作Loop但实际上，在While循环里面，Timer函数几乎每次都得到相同的时间，只有大约隔了0.05秒才会得到不同的时间，也就是说Timer的准确性只有0.05秒，但我希望进行的工作却是每0.005秒一次，该怎么办呢？可以改用WindowsAPI的timeGetTime函数，此一函数会传回Windows开机以来所经过的时间，时间单位是1/1

2、000秒，举例来说，开机经过2分钟，则传回值等于2*60*1000，timeGetTime的优点是时间可以精确到1/1000秒，所以可以用来解决上述的问题，细节如下：1. API的声明：PrivateDeclareFunctiontimeGetTimeLib"winmm.dll"Alias"timeGetTime"()AsLong注：如果以上的声明放在一般模块底下，应将Declare之前的Private保留字去掉。2. 程序范例：Dimtm1AsLongDotm1=timeGetTimeWhiletimeGetTime-tm1<5'等于5/

3、1000=0.005秒DoEventsWend.做某一件工作Loop快速读取TextBox第N行的资料TextBox是以vbCr+vbLf为分行符号，如果我们要逐一读取TextBox每一行，无非是寻找vbCr+vbLf的所在位置，然后取出每一行的字串，不过这个方法真的不快，而且如果我们要读取第N行资料，还是要从第1、2、一N-1行逐一读起，实在麻烦。还好WindowsAPI提供有读取TextBox第N行的功能，细节如下：1. API的声明：ConstEM_GETLINE=&HC4ConstEM_LINELENGTH=&HC1ConstEM_LINEINDEX=&HBBP

4、rivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhWndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPrivateDeclareSubRtlMoveMemoryLib"KERNEL32"(lpvDestAsAny,lpvSourceAsAny,ByValcbCopyAsLong)注：如果以上的声明放在一般模块底下，应在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' 假设要读取Text1第