Access VBA教程:Echo方法

应用于 Application对象的 Echo方法。

Echo方法指定 Microsoft Access 是否重画显示屏幕。

expression.Echo(EchoOn, bstrStatusBarText)

expression   必需。返回一个Application对象的表达式。

EchoOn  必需 Integer 型。True(默认值)表示重画屏幕。

bstrStatusBarText  可选 String 型。字符串表达式,指定当重画打开或关闭时,在状态栏上所显示的文本。

说明

如果运行 Visual Basic 代码对屏幕上显示的对象作一些更改,若关闭屏幕重画直到完成该过程,则代码的运行速度将会加快。如果代码所作的更改是用户不应该或不需要看到的,也可能要关闭重画。

Echo方法不隐藏模式对话框的显示,例如错误消息,或弹出式窗体(例如属性表)。

如果关闭屏幕重画,屏幕将不显示任何变化,甚至当用户按 Ctrl+Break 或 Visual Basic 遇到一个断点时也是这样。用户可能需要创建一个打开重画的宏,并将该宏指定给一个键或自定义菜单命令。如果在 Visual Basic 中关闭重画,就可用键组合或菜单命令打开重画。

如果关闭屏幕重画,然后试图单步执行代码,将看不到代码执行的过程,也看不到其他提示,直到重画重新打开。但代码将继续执行。

注意   不要将 Echo方法与Repaint方法混淆。Echo方法将屏幕重画打开或关闭。而 Repaint方法强制屏幕重画立即进行。

应用于 DoCmd对象的 Echo方法。

DoCmd对象的 Echo方法在 Visual Basic 中执行Echo 操作。

expression.Echo(EchoOn, StatusBarText)

expression   必需。返回一个DoCmd对象的表达式。

EchoOn  必需 Variant 型。使用 True 可以打开回响,而使用 False 可以进行关闭。

StatusBarText  可选 Variant 型。字符串表达式,表示显示在状态栏中的文本。

说明

如果将 StatusBarText参数留空,则不要在 echoon参数后使用逗号。

如果在 Visual Basic 中关闭了回响,必须再次打开它,否则,即使用户按 Ctrl+Break 或 Visual Basic 遇到断点,回响仍将保持关闭。用户可能要创建用于打开回响的宏,然后将该宏指定给组合键或自定义菜单命令。这样在 Visual Basic 中关闭回响之后,即可使用组合键或菜单命令来打开回响。

添加 DoCmd对象的 Echo方法是为了提供在 Microsoft Access for Windows 95 的 Visual Basic 代码中执行 Echo 操作的后向兼容性。建议使用Application对象的已有 Echo方法来取代。

VBA示例

应用于 Application 对象。

下面的示例使用 Echo方法防止在运行某些操作时屏幕被重画。当过程打开一个窗体并将它最小化时,用户只看见一个表示正在进行处理的沙漏图标,而屏幕并不会重画。当该任务完成后,沙漏将变回指针,重画将被重新打开。


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

应用于 DoCmd对象。

下面的示例使用 Echo方法关闭回响,并在执行 Visual Basic 代码期间,在状态栏中显示指定的文本:


DoCmd.Echo False, "Visual Basic code is executing."

上页:Access VBA教程:DVarP方法 下页:Access VBA教程:Eval方法

Access VBA教程:Echo方法

Access VBA教程:Eval方法 Access VBA教程:ExportXML方法
Access VBA教程:Find方法 Access VBA教程:FirstPage、LastPage、NextPage、PreviousPage方法 (Snapshot Viewer)
Access VBA教程:Follow方法 Access VBA教程:FollowHyperlink方法
Access VBA教程:GetHiddenAttribute方法 Access VBA教程:GetOption方法
Access VBA教程:GoToPage方法 Access VBA教程:GUIDFromString方法
Access VBA教程:HyperlinkPart方法 Access VBA教程:ImportXML方法
Access VBA教程:InsertLines方法 Access VBA教程:InsertText方法
Access VBA教程:Item方法 Access VBA教程:Line方法
Access VBA教程:Modify方法 Access VBA教程:Move方法
Access VBA教程:NewAccessProject方法 Access VBA教程:NewCurrentDatabase方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号