PRB: TAB Behavior When Using MFC Subclassed Control on VB Form (214476)

RESOLUTION

Use the following in both the OnCreate function and the OnMouseActivate function to In Place Activate the control:

OnActivateInPlace (TRUE, NULL);

Note that after these changes have been made, other accelerator keys, like the arrow keys, will also be processed by the container when the MFC control receives the focus. However, you may want your control to process these keys. To solve this problem, you need to intercept the messages in the control's PreTranslateMessage function. This is described in the following Microsoft Knowledge Base article:

Q168777 PRB: MFC ActiveX Control in IE Doesn't Detect Keystrokes

The last remaining issue is that when you tab through the controls on the form, the cursor is not on your MFC control when it receives the focus. You must set the focus to the composite control.

MORE INFORMATION

Steps to Create a Sample Control Using Visual C 6.0

Open Visual C++ 6.0 and create a new MFC ActiveX Control Wizard project named MyCombo. Click OK, and then click Finish in the MFC ActiveX Control Wizard dialog box.
Select the FileView tab and expand the MyCombo files and Header files nodes. Open MyComboCtl. and add the following code after the statement ~CMyComboCtrl():
```
   CComboBox m_ComboBox;
					
```

From the View menu, choose Class Wizard. In the Messages list box, double-click WM_CREATE and click the Edit Code button. Replace the //TODO statement in the OnCreate function with the following code:


   //Get the control's client area and add 100 to the size so that 
   //when the control is opened, it has enough space to display
   //the list box.

   CRect L_rectClient;

   GetClientRect(L_rectClient);
   L_rectClient.bottom += 100;

   //Set the combo box's style.

   DWORD L_dwComboStyle = WS_CHILD | WS_VISIBLE | WS_TABSTOP;

   L_dwComboStyle	|= CBS_DROPDOWN;
   L_dwComboStyle	|= CBS_SORT;

   //Create the combo box.

   m_ComboBox.Create(L_dwComboStyle, L_rectClient, this, IDC_COMBO);

   //Add the strings to the list part of the combo box.

   if(AmbientUserMode() != FALSE)
   {
      // This is for run-time.
      m_ComboBox.AddString(_T("item1"));
      m_ComboBox.AddString(_T("item2"));
      m_ComboBox.AddString(_T("item3"));
      m_ComboBox.AddString(_T("item4"));
      m_ComboBox.AddString(_T("item5"));
      m_ComboBox.SetWindowText(_T("item1"));
   }
   else  // this is for design time
      m_ComboBox.SetWindowText(_T("MyCombo"));

Select the Resource View tab, right click on the topmost node, and click Resource Symbols. In the Resource Symbols dialog box, click the New button, type IDC_COMBO in the Name field, click OK, and then click Close.
In the OnDraw function in MyComboCtl.cpp comment out the following line:
```
   pdc->Ellipse(rcBounds);
					
```
On the Build menu, choose Rebuild All. The control will automatically be registered.

Steps to Create a Visual Basic Test Sample

From the Project menu, choose Components. Select the item MyCombo ActiveX Control module from the Components list box. Click OK. The control is added to the toolbox.
Add a text box and a MyCombo control to the form.
Run the application. Click the combo box of MyCombo and then press the TAB key. The focus does not shift to the other control.
Close the Visual Basic project so that the MFC control can be modified.

Steps to Modify the Control to Resolve the Problem

In the OnCreate function, in the MyComboCtl.cpp file, add the following line before the return statement:
```
   OnActivateInPlace (TRUE, NULL); // == UI-Activate the control
					
```
From the View menu, choose Class Wizard. Double-click PreTranslateMessage, WM_MOUSEACTIVATE, and WM_SETFOCUS in the Messages list box.

Replace the functions PreTranslateMessage, OnMouseActivate, and OnSetFocus in the MyComboCtl.cpp file, with the following code:

   BOOL CMyComboCtrl::PreTranslateMessage(MSG* pMsg) 
   {
      switch(pMsg->message)
      {
         case WM_KEYDOWN:
         case WM_KEYUP:

            switch(pMsg->wParam)
            {
               case VK_UP:
               case VK_DOWN:
               case VK_LEFT:
               case VK_RIGHT:
               case VK_HOME:
               case VK_END:
                  //these messages need to be processed by the combo box
               m_ComboBox.SendMessage(pMsg->message, pMsg->wParam,    pMsg->lParam);

                  return TRUE;
            }
         break;
      }
      //other messages need to be processed by container first
      return COleControl::PreTranslateMessage(pMsg);
   }

   int CMyComboCtrl::OnMouseActivate(CWnd* pDesktopWnd, UINT nHitTest, UINT    message) 
   {
      OnActivateInPlace (TRUE, NULL); // == UI-Activate the control	
      return COleControl::OnMouseActivate(pDesktopWnd, nHitTest, message);
   }

   void CMyComboCtrl::OnSetFocus(CWnd* pOldWnd) 
   {
      COleControl::OnSetFocus(pOldWnd);
      //set the focus to the composite control to show the cursor
      m_ComboBox.SetFocus();  
   }

From the Build menu, choose Rebuild All to rebuild the project.

Repeat the steps you used to create the Visual Basic test project. Now, the tabbing should work correctly.