全部显示

Screen 对象

         
Application
Screen
多个对象

Screen 对象引用当前拥有焦点的特定窗体报表控件

使用 Screen 对象

使用 Screen 对象及其属性,可以引用拥有焦点的窗体、报表或控件。

例如,可以使用 Screen 对象与 ActiveForm 属性来引用活动窗口中的窗体而无需知道窗体的名称。下面的示例将显示活动窗口中窗体的名称:

MsgBox Screen.ActiveForm.Name

引用 Screen 对象并不会使窗体、报表或控件激活。为了激活窗体、报表或控件,必须使用 DoCmd 对象的 SelectObject 方法。

如果在没有活动窗体、报表或控件的情况下引用 Screen 对象,Microsoft Access 会返回一个运行时错误。例如,如果某个标准模块位于活动窗口,那么前面示例中的代码就会返回一个错误。

下面的示例将使用 Screen 对象来打印活动窗口中窗体的名称及该窗体上活动控件的名称:

Sub ActiveObjects()
    Dim frm As Form, ctl As Control

    ' Return Form object pointing to active form.
    Set frm = Screen.ActiveForm
    MsgBox frm.Name & " is the active form."
    ' Return Control object pointing to active control.
    Set ctl = Screen.ActiveControl
    MsgBox ctl.Name & " is the active control " _
        & "on this form."
End Sub