office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

如何穫取當前激活的子窗體控件的名稱

2021-01-03 10:03:00
zstmtony
原創
1813
 '如果焦點在主窗體裡的子窗體控件裡的子窗體的控件上,則以下代碼
MsgBox Screen.ActiveControl.Name  '當前穫得焦點的子窗體控件裡麵的控件的名稱
MsgBox Screen.ActiveForm.Name  '當前激活的窗體的名稱 (主窗體)
MsgBox Screen.ActiveControl.Parent.Name  '當前激活的子窗體的名稱 (子窗體)

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



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

Next




更簡單的方法 穫取當前激活的子窗體控件的名稱


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

Next

分享