# 背景读档

Posted by 阿晴 on October 21, 1997 at 11:34:52:

请帮我看一下这程式:

下面这一段程式码是做背景读档的动作, 当有键盘事件发生时:
程式将 Message 传给 Form 处理, 否则便一直读档, 直到档案结
束, 但是这种做法 Delay 的情况很严重. 用 Multi-Thread?!! 照样
会 Delay, 而且 Multi-Thread 无法 Debug (其实 PeekMessage 也
一样). 不知吴兄您的看法呢?

While (blnDraw = False)
While PeekMessage(xMsg, 0, 0, 0, PM_REMOVE)
With xMsg
If .message = WM_KEYDOWN Then
.hwnd = fBrowse.hwnd
ElseIf lngMaxRow < Rs.RecordCount - 1 Then
FillCell 20
DoEvents
Else
blnDraw = True
End If
TranslateMessage xMsg
DispatchMessage xMsg
End With
Wend
If lngMaxRow < Rs.RecordCount - 1 Then
FillCell 20
DoEvents
Else
blnDraw = True
End If
Wend

Follow Ups:

- 不要一次填那么多列... 小吴 23:18:18 10/21/97 (0)