<p><strong><span style="font-size:16px;">Echo 方法</span></strong></p> <p>这个方法指定 Microsoft Access 是否重新绘制显示屏幕<span style="line-height:1.78571;">。</span></p> <p><span></span></p> <p class="label"><b>语法</b></p> <br /> <p><span class="emp"><i>object</i></span>.<b>Echo(EchoOn As Boolean)</b></p> <p>object&nbsp;表达式&nbsp;一个代表&nbsp;Application&nbsp;对象的变量。</p> <p><b><br /> </b></p> <p class="label"><b>参数</b></p> <div class="subsection"><div class="tableSection"><div class="contentTableWrapper"><table style="border:1px solid #BBBBBB;"><tbody><tr><th><p>名称</p> </th> <th><p>必需/可选</p> </th> <th><p>数据类型</p> </th> <th><p>说明</p> </th> </tr> <tr><td><p>EchoOn</p> </td> <td><p>必需</p> </td> <td><p><span style="font-weight:700;">Boolean</span></p> </td> <td><p>真(默认值) 指示屏幕被重绘。</p> </td> </tr> </tbody> </table> </div> </div> </div> <span></span><p><br /> </p> <p class="label"><b>说明</b></p> <p><span style="color:#2A2A2A;font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;line-height:1.78571;">如果运行 Visual Basic 代码对屏幕上显示的对象做一些更改，若关闭屏幕重画直到完成该过程，则代码的运行速度将会加快。如果代码所做的更改是用户不应该或不需要看到的，也可能要关闭重画。</span></p> <p style="font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;color:#2A2A2A;"><span id="mt20" class="sentence"><strong>Echo</strong>方法不会取消显示模式对话框，例如错误消息或弹出式窗体，如属性表。</span></p> Echo方法不影响功能区的可见性或功能区命令的可用性。<p><br /> </p> <p style="font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;color:#2A2A2A;"><span id="mt22" class="sentence">如果关闭屏幕重画，屏幕将不显示任何变化，甚至当用户按 Ctrl+Break 或 Visual Basic 遇到一个中断点时也是这样。用户可能需要创建一个打开重画的宏，并将该宏指定给一个键或自定义菜单命令。如果关闭重画，就可用键组合或菜单命令打开重画。</span></p> <p style="font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;color:#2A2A2A;"><span id="mt23" class="sentence">如果关闭屏幕重画，然后试图单步执行代码，将看不到代码执行的过程，也看不到其他提示，直到重画重新打开。但代码将继续执行。</span></p> <span style="color:#2A2A2A;font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;line-height:18px;"><p><span style="color:#2A2A2A;font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;line-height:18px;"><br /> </span></p> 不要混淆</span><strong>Repaint</strong><span style="color:#2A2A2A;font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;line-height:18px;">方法使用</span><strong>Echo</strong><span style="color:#2A2A2A;font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;line-height:18px;">方法。</span><strong>Echo</strong><span style="color:#2A2A2A;font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;line-height:18px;">方法关闭屏幕重画或关闭。</span><strong>重新绘制</strong><span style="color:#2A2A2A;font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;line-height:18px;">方法强制立即重画。</span><p><br /> </p> <p><span style="color:#2A2A2A;font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;line-height:18px;">下面的代码示例使用</span><strong>Echo</strong><span style="color:#2A2A2A;font-family:'Microsoft YaHei UI', 'Microsoft YaHei', SimSun, 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;line-height:18px;">方法防止某些操作时被重画屏幕。当过程打开一个窗体并将它最小化时，用户只看见一个沙漏图标，指示处理正在进行，并且不重画屏幕。完成此任务后，沙漏的变回指针，重画重新打开。</span></p> <pre class="prettyprint lang-vb">Public Sub EchoOff() ' Open the Employees form minimized. Application.Echo False DoCmd.Hourglass True DoCmd.OpenForm "Employees", acNormal DoCmd.Minimize Application.Echo True DoCmd.Hourglass False End Sub</pre> <p><br /> </p>