<strong id="nr4sf"></strong>

<button id="nr4sf"><object id="nr4sf"></object></button>

    <rp id="nr4sf"></rp>
    <th id="nr4sf"><track id="nr4sf"></track></th>
      <s id="nr4sf"></s>
    1. <em id="nr4sf"></em>
    2. <li id="nr4sf"><acronym id="nr4sf"></acronym></li>
    3. <button id="nr4sf"></button>

      office交流網--QQ交流群號

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

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

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

      2021-01-03 10:03:00
      zstmtony
      原創
      16608
       '如果焦點在主窗體里的子窗體控件里的子窗體的控件上,則以下代碼
      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

      分享
      一级日本牲交大片束缚_玖玖资源站亚洲最大的网站_56PAO国产成视频永久_97人人操人人摸
      <strong id="nr4sf"></strong>

      <button id="nr4sf"><object id="nr4sf"></object></button>

      <rp id="nr4sf"></rp>
      <th id="nr4sf"><track id="nr4sf"></track></th>
        <s id="nr4sf"></s>
      1. <em id="nr4sf"></em>
      2. <li id="nr4sf"><acronym id="nr4sf"></acronym></li>
      3. <button id="nr4sf"></button>