Access VBA教程:ActiveControl属性

使用 ActiveControl属性可以和Screen对象一起来识别或引用获得焦点的控件。Control对象,只读。

expression.ActiveControl

expression   必需。返回“Applies To”列表中的一个对象的表达式。

设置

此属性设置中包含对在运行时获得焦点的Control对象的引用。

该属性仅在使用Visual Basic 时才可用,并且在所有视图中具有只读属性。

说明

可以使用 ActiveControl属性来引用在运行时与其属性或方法之一共同获得焦点的控件。以下示例将获得焦点的控件名称指定给strControlName 变量:


Dim ctlCurrentControl As Control
Dim strControlName As String
Set ctlCurrentControl = Screen.ActiveControl
strControlName = ctlCurrentControl.Name

如果在使用 ActiveControl属性时没有控件获得焦点,或所有窗体中的活动控件都是隐藏或失效的,则会产生错误。

VBA示例

下面的示例将活动控件指定给ctlCurrentControl 变量,然后根据不同的控件 Name属性值,采取不同的操作。


Dim ctlCurrentControl As Control
Set ctlCurrentControl = Screen.ActiveControl
If ctlCurrentControl.Name = "txtCustomerID" Then
    .
    . ' Do something here.
    .
ElseIf ctlCurrentControl.Name = "btnCustomerDetails" Then
    .
    . ' Do something here.
    .
End If

上页:Access VBA教程:Action属性 下页:Access VBA教程:ActiveDataAccessPage属性

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属性
Access VBA教程:AfterInsert属性 Access VBA教程:AfterLayout属性
Access VBA教程:AfterRender属性 Access VBA教程:AfterUpdate属性
Access VBA教程:Alias属性 Access VBA教程:AllDataAccessPages属性
Access VBA教程:AllDatabaseDiagrams属性 Access VBA教程:AllForms属性
Access VBA教程:AllFunctions属性 Access VBA教程:AllMacros属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号