📄 1160.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>  <head>    <title>背景读档</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="blue" VLINK="#808080" ALINK="red">    <center>      <h1>背景读档</h1>    </center><HR><p>Posted by <a href="mailto:eipper@ms14.hinet.net">阿晴</a> on October 21, 1997 at 11:34:52:<p>请帮我看一下这程式:<p>下面这一段程式码是做背景读档的动作, 当有键盘事件发生时:<br>程式将 Message 传给 Form 处理, 否则便一直读档, 直到档案结<br>束, 但是这种做法 Delay 的情况很严重. 用 Multi-Thread?!! 照样<br>会 Delay, 而且 Multi-Thread 无法 Debug  (其实 PeekMessage 也<br>一样). 不知吴兄您的看法呢?<p>    While (blnDraw = False)<br>        While PeekMessage(xMsg, 0, 0, 0, PM_REMOVE)<br>            With xMsg<br>                If .message = WM_KEYDOWN Then<br>                    .hwnd = fBrowse.hwnd<br>                ElseIf lngMaxRow < Rs.RecordCount - 1 Then<br>                    FillCell 20<br>                    DoEvents<br>                Else<br>                    blnDraw = True<br>                End If<br>                TranslateMessage xMsg<br>                DispatchMessage xMsg<br>            End With<br>        Wend<br>        If lngMaxRow < Rs.RecordCount - 1 Then<br>            FillCell 20<br>            DoEvents<br>        Else<br>            blnDraw = True<br>        End If<br>    Wend<br><br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1160--><!--top: 1167--><li><a href="1167.html"><b>不要一次填那么多列...</b></a> 小吴 <i>23:18:18 10/21/97</i>(<!--responses: 1167-->0)<ul><!--insert: 1167--></ul><!--end: 1167--></ul><!--end: 1160--><br><HR><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -