You cannot activate the MDI child window when embedding an ActiveX control in an MDI application in Visual Basic (192705)

MORE INFORMATION

PreCreateWindow() is a CWnd virtual function that accesses the CREATESTRUCT structure for the window just prior to its creation. The WS_EX_NOPARENTNOTIFY window style is an extended style, and can be unset in the following manner:

   BOOL CFocusCtrl::PreCreateWindow(CREATESTRUCT& cs)
   {
      cs.dwExStyle &= ~WS_EX_NOPARENTNOTIFY;
      return COleControl::PreCreateWindow(cs);
   }
				

If Visual Basic 6.0 is used to create the MDI application, no further action should be necessary. For Visual Basic 5.0 clients, you must provide custom handling for the CTRL+TAB keystroke.

OnKeyDown is a CWnd member function that has been overridden for this control class. The code traps the CTRL+TAB keystroke and sends a WM_MDINEXT message to the parent window. The parent window itself is determined by calling a new function, GetMDIChildHwnd().

GetMDIChildHwnd() tries to locate the window that has the style WS_EX_MDICHILD (for example, an MDI child window of an MDI application). The window may be the immediate parent window of the control, or the parent window of the immediate parent of the control (for instance, an MDI child window with a frame control that contains an embedded ActiveX control):

   HWND CFocusCtrl::GetMDIChildHwnd()
   {
      // Get the window associated with the in-place site object,
      // which is connected to this ActiveX control.
      HWND hparent;
      if (m_pInPlaceSite != NULL)
         m_pInPlaceSite->GetWindow(&hparent);

      // Loop until either an MDI child window or no parent window is
      // found. MDI child window will have a WS_EX_MDICHILD window
      // style.
      CWnd* parent = FromHandle(hparent);
      do
      {
         if (parent == NULL)
            break;

         // Check to see whether or not it is an MDI child window.
         // Returns the HWND of the MDI child window to the caller.
         DWORD style = parent->GetExStyle();
         if (style & WS_EX_MDICHILD)
            return parent->GetSafeHwnd();

         parent = parent->GetParent();
      }
      while (1);

      return NULL;
   }

   void CFocusCtrl::OnKeyDown(UINT nChar, UINT nRepCnt, UINT nFlags)
   {
      if ((GetKeyState(VK_CONTROL) < 0) && nChar == VK_TAB)
         {
            // Activate next MDI child window in the MDI application by
            // sending a message to the client window (the parent
            // of the MDI child window).
            CWnd* mdichild = CWnd::FromHandle(GetMDIChildHwnd());
            if (mdichild)
               (mdichild->GetParent())->SendMessage(WM_MDINEXT);
         }

      COleControl::OnKeyDown(nChar, nRepCnt, nFlags);
   }
				

Steps to reproduce the behavior

1. Create an MDI application in Visual Basic.
2. Add an ActiveX control and a textbox control to the MDI child form in design mode.
3. Run the MDI application. The MDI application will show an MDI child window during startup.
4. On the File menu, click New to create another MDI child window. Tile both MDI child windows. You will notice that one MDI child window is active and the other is inactive.
5. Click the ActiveX control of the inactive MDI child window; the MDI child window is not activated. Click another area other than the ActiveX control in the inactive MDI child window; the MDI child window changes from an inactive to an active state.

In Visual Basic 5.0, when focus is in the textbox control, pressing CTRL+TAB activates the inactive MDI child window. However, pressing CTRL+TAB has no effect if focus is in the ActiveX control.