Access VBA教程: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

上页:Access VBA教程:Report对象 下页:Access VBA教程:Section对象

Access VBA教程:Screen对象

Access VBA教程:Section对象 Access VBA教程:SubForm对象
Access VBA教程:SubReport对象 Access VBA教程:TabControl集合
Access VBA教程:TextBox对象 Access VBA教程:ToggleButton对象
Access VBA教程:WebOptions对象 Access VBA教程:About属性
Access VBA教程:Action属性 Access VBA教程:ActiveControl属性
Access VBA教程:ActiveDataAccessPage属性 Access VBA教程:ActiveDatasheet属性
Access VBA教程:ActiveForm属性 Access VBA教程:ActiveReport属性
Access VBA教程:AddColon属性 Access VBA教程:Address属性
Access VBA教程:AfterBeginTransaction属性 Access VBA教程:AfterCommitTransaction属性
Access VBA教程:AfterDelConfirm属性 Access VBA教程:AfterFinalRender属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号