FIX: GPF Using ATL Control Array and Accelerator Key

MORE INFORMATION

Steps to Create the ATL control

1. Open Visual C++ 6.0. On the File menu, click New, click the Projects tab, and select ATL COM AppWizard from the list box.
2. Type CtlAtl in the Project name text box. Click OK and then click Finish.
3. In the Class View, right click the project name and click New ATL Object.... In the "Category" list box, click Controls and select the Full Control icon in the Objects list view.
4. Click Next, and type TstCtl in the Short name text box. Click the Miscellaneous tab, and select Windowed Only. Click OK to add the new object.
5. In the TstCtl.h file before the following lines:
   

   };
   
   #endif //__TSTCTL_H_
   						

   
   Add the following code:
   

   STDMETHODIMP GetControlInfo(CONTROLINFO* pCI)
   {
      pCI->hAccel = NULL;
      pCI->cAccel = 0;
      pCI->dwFlags = 0;
      return S_OK;
   }
   
   STDMETHODIMP TranslateAccelerator(LPMSG lpmsg)
   {
      HRESULT hr = S_FALSE;
   
      CComQIPtr <IOleControlSite, &IID_IOleControlSite>
            spSite(m_spClientSite);
   
      if(spSite)
      {
         if (lpmsg->message != WM_KEYDOWN) return S_FALSE;
   
         //call site's  TranslateAccelerator for processing
         hr = spSite->TranslateAccelerator(
                       lpmsg,
                       (DWORD)_SpecialKeyState());
      }
      return hr;
   }
   
   // Helper function.
   short _SpecialKeyState()
   {
      BOOL bShift = (GetKeyState(VK_SHIFT) < 0);
      BOOL bCtrl = (GetKeyState(VK_CONTROL) < 0);
      BOOL bAlt = (GetKeyState(VK_MENU) < 0);
   
      return (short)(bShift + (bCtrl << 1) + (bAlt << 2));
   }
   						

6. Build the project. The control is automatically registered.

Steps to Create the Visual Basic Test Project

1. Create a new Standard EXE project in Visual Basic 5. Form1 is created by default.
2. From the Project menu, click Components, click CtlAtl 1.0 Type Library, and click OK.
3. Add a TstCtl to Form1. Click on the control, copy it and paste it back into the same form. Click Yes to create a control array.
4. Add a Visual Basic CommandButton and set its Cancel property to True.
5. Add the following code to the code window of Form1:
   

   Option Explicit
   
   Private Sub Command1_Click()
      Unload Me
   End Sub
   						

6. While still in the Visual Basic IDE, run the project and press the Esc key.