免费人成网站视频在线观看,99久久国产自偷自偷免费一区,亚洲中文不卡DvD

'如果焦點在主窗體里的子窗體控件里的子窗體的控件上，則以下代碼
MsgBox Screen.ActiveControl.Name '當(dāng)前獲得焦點的子窗體控件里面的控件的名稱
MsgBox Screen.ActiveForm.Name '當(dāng)前激活的窗體的名稱（主窗體）
MsgBox Screen.ActiveControl.Parent.Name '當(dāng)前激活的子窗體的名稱（子窗體）

MsgBox Screen.ActiveControl.Parent.Parent.Name '當(dāng)前激活的子窗體的父容器名稱（主窗體）

Dim ctr As Control
For Each ctr In Screen.ActiveControl.Parent.Parent
If TypeOf ctr Is SubForm Then
MsgBox ctr.Name '子窗體控件的名稱（非子窗體窗體）
End If

更簡單的方法 獲取當(dāng)前激活的子窗體控件的名稱

Dim ctr As Control
For Each ctr In Screen.ActiveForm.Controls
If TypeOf ctr Is SubForm Then
MsgBox ctr.Name '子窗體控件的名稱

'如果希望判斷是否焦點所在的子窗體，可以再判斷 if ctr.Form.Name=Screen.ActiveControl.Parent.Name Then 相等就是激活的子窗體
End If

聯(lián)系人：	王先生
Email：	18449932@qq.com
QQ：	18449932
微博：	officecn01

聯(lián)系人：

王先生

Email：

18449932@qq.com

QQ：

18449932

微博：

officecn01

Office交流網(wǎng)

如何獲取當(dāng)前激活的子窗體控件的名稱