activex控件加速键消息处理不完全方案

activex控件加速键消息处理不完全方案

一个软件专业与否，在细微之处体现的淋漓精致。目前软件开发基于组件思想，使得软件开发像搭积木一样。软件模块的封装分两种，一种是业务功能的封装（我称它为组件），一种是表现界面的封装（我称它为控件）。

组件的封装因为与界面无关，所以问题大多在接口数据类型上。控件与界面有关，很多朋友在开发控件的时候很有激情，看着自己的东东在什么环境下面都可以使用，很是有成就感。然而稍有专业水准的人应该会发现这不是一件完美的事情，因为microsoft没有为activex控件处理加速键消息处理，以至于导致很多问题：up、down、left、right、home、end、tab、backspace等在自己的控件里面不起作用，编辑框无法删除字符，tab键无法跳转到下一个控件上。我是深受其害，以至于有一年多不敢染指控件开发。这个问题很多人遇见过，但是没见到谁给出个好的方法来。

对于上面的问题，微软也意识到，但是一直没有给出完美的一套方案，只是在msdn里面零星提到一下，给出了一个基于mfc activex的解决办法。由于我一般使用atl开发控件，所以那个办法我一直未曾感到满意过。上网搜索不少，一般都不能解决实质性问题，有甚者把钩子都搬出来，个人觉得没有那么大必要，毕竟我一般不敢将hook技术应用在大软件里面。我依据个人摸索，基本解决了大部分问题，当然任何事情都是不完美的，拿出来为了一个csdn朋友需要，也为了大家提出更好的解决办法。

本篇以vs2005环境，实做出atl标准控件、复合控件，测试环境分别为VB6  VC6(dialog) .net(C#) IE。分别展示出问题以及解决办法，记忆里vb控件在mfc里面也有问题（好像tab键出不去，需要一个隐藏控件），对于此本文不做探讨，如有需要，下次在说。

这里先谈谈做控件的选择：标准控件分无窗口和有窗口。
如果只设计图形操作，不需要窗口，可以通过IOleObject来解决位置以及大小，这样可以减少不少控件的尺寸。
对于有窗口的控件，一般情况是一个做好的窗口类，为了封装以使用于各种开发环境而依附到atl控件窗口上面（至于不创建窗口可否？当然可以，这里不想讲，牵扯太远）。对于这种控件个人认为最好只依附一个窗口，如果想依附几个窗口，请使用复合控件。
复合控件类似一个对话框面板，你可以托放控件到面板上，这种控件问题比较少，我推荐使用窗口控件的人选择此类型，尽管dll尺寸可能大点。

标准带窗口控件问题：
我制作的控件是一个edit创建在atl窗口上面，不作任何处理在各种环境里面使用情况如下：
VB6：Tab正常，但是在atl控件的时候，edit无Caret（不知道怎么翻译）闪烁，并且鼠标点击在里面后有Caret，然而按下左键跑到上一个tab窗口上面去了。
VC6：比VB6好一点，左右键是好的，也是tab后无Caret闪烁
.net：和VB6情况一样，无语，难怪.net和VB6一样好用（^_^，没有瞧不起.net，我深受VC之苦，好想用.net开发界面）
IE：和VB6大致一样就是左右键全部不起作用。

处理方法：
1、添加SetFocuse消息处理：

LRESULT CATLFullCtrl_Step2::OnSetFocus(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL &  bHandled)
{
     //  TODO: 在此添加消息处理程序代码和/或调用默认值
    LRESULT lRes  =  CComControl < CATLFullCtrl_Step2 > ::OnSetFocus(uMsg, wParam, lParam, bHandled);
     if  (m_bInPlaceActive)
     {
        DoVerbUIActivate( & m_rcPos,  NULL);
         if ( ! IsChild(::GetFocus()))
         {
            m_wndEdit.SetFocus();
        }
    }
     return  lRes;
}

当atl控件接到focuse消息后，把焦点给edit窗口。还不够，接着是主要的：
2、重载加速键需函数：
让我们先看看微软做了什么：

BOOL PreTranslateAccelerator(LPMSG /*pMsg*/, HRESULT& /*hRet*/)
    {
        return FALSE;
    }

靠，明显不作为嘛！什么都不处理，怎么可能正确啊......
我来试一试：

BOOL CATLFullCtrl_Step2::PreTranslateAccelerator(LPMSG pMsg, HRESULT& hRet)
{
    // TODO: 在此添加专用代码和/或调用基类
    if(pMsg->message == WM_KEYDOWN &&
        (pMsg->wParam == VK_LEFT ||
        pMsg->wParam == VK_RIGHT ||
        pMsg->wParam == VK_UP ||
        pMsg->wParam == VK_DOWN))
    {
        hRet = S_FALSE;
        return TRUE;
    }
    return __super::PreTranslateAccelerator(pMsg, hRet);
}

为什么？？还记得前面的问题嘛？？Tab键好像是好的，就是左右键不正确啊，^_^，这里我假设处理拉，你就别跳别处了好嘛？？？
下面来看看各种环境里面使用情况：
VB6：正常
VC6：正常
.net：正常
IE：第一此tab到控件焦点控件外框，点击编辑框之后下次就是好的了。不晓得是不是我没有处理好。

复合控件的问题：
我制作的复合控件是一个按钮、一个复选框、一个编辑框、一个单选框。不作任何处理在各种环境里面使用情况如下：
VB6：没大毛病，就是默认焦点在复合控件第一个tab窗口上（假象，你切换一下窗口就恢复到正常情况下，但是复合控件button里面按钮的默认黑色外框还有，我实在处理不好），且编辑框输入汉语是乱码（好像与Unicode编码有关）。
VC6：很完美，还是自产自消比较对路。
.net：和VB6情况差不多，但是没有乱码问题。
IE：问题不大，你自己看看，实在不好描述，我保证不影响使用。

处理方法：
1、乱码问题，不要问我为什么，我也是瞎蒙的，^_^。不过你要想知道为什么复合控件问题这么少，我建议你看看基类CComCompositeControl的PreTranslateAccelerator实现，晕，那么多判断代码，还有问题，咳，不说了。

STDMETHOD(TranslateAccelerator)(LPMSG pMsg)
    {
        if(pMsg->message == WM_CHAR)
        {
            return S_FALSE;
        }
        HRESULT        hr    = NO_ERROR;
        hr = IOleInPlaceActiveObjectImpl < CATLCompoundCtrl_Step2 > ::TranslateAccelerator(pMsg);
        if(hr != S_OK)
        {
            CComQIPtr < IOleControlSite ,&IID_IOleControlSite >     spCtrlSite(m_spClientSite);
            if(spCtrlSite)
            {
                hr = spCtrlSite->TranslateAccelerator(pMsg, 0);
                if(hr != S_OK)
                {
                    IsDialogMessage(pMsg);
                }
            }
        }
        return S_OK;
    }

主要解决乱码的就是那段判断WM_CHAR消息返回S_FALSE的代码。下面那段代码借用microsoft的，呵呵。
2、VB6那个假象focus处理，这个我是在VB6里面做的，就是强制focus到form第一个tab窗口上，焦点倒是对了，但是复合控件上面那个按钮的默认黑色外框在tab一个轮回后才正常。处理代码：

Private Sub Form_Activate()
    Command1.SetFocus
End Sub

3、.net以及IE的我没有解决掉那个假focus，望高人支招。
下面来看看各种环境里面使用情况：
VB6：那个默认按钮黑色外框没解决掉，其他ok
VC6：完美
.net：假focuse没有解决掉
IE：假focuse没有解决掉

下面来总结一下：
好像没有一种万能办法可以解决掉所有情况下的问题，我尝试很久总结出这些东西不知道算不算好的办法，但是还算是消除了一些关键问题，不知道是否使用你遇到的问题。.net控件好像很方便也没有那么多资源切换啊，加速键消息处理问题啊。没办法，我们这些it“马崽”很多事情是不由自己的。

遗留问题：
假focuse、默认按钮黑色外框没有处理好。

代码下载

说明：包括activex控件、VB6测试、VC6测试、.net测试。