使用 ActiveControl 屬性與 Screen 物件一起來識別或參考具有焦點的控制項。 唯讀 控制項 物件。
語法
表達。主動控制
詞 代表 Screen 物件的變數。
註解
此屬性設定值包含在執行階段有焦點的 控制項 物件的參照。
使用 ActiveControl 屬性來參照在執行階段具有焦點的控制項及其其中一個屬性或方法。 下列範例會將具有焦點的控制項名稱指派給 strControlName變數。
Dim ctlCurrentControl As Control
Dim strControlName As String
Set ctlCurrentControl = Screen.ActiveControl
strControlName = ctlCurrentControl.Name
如果沒有控制項有焦點時您使用 ActiveControl 屬性，或如果全部作用中表單的控制項都是隱藏或停用，就會發生錯誤。
範例
下列範例會將作用中的控制項指派給 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
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。