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

转载地址:

http://blog.csdn.net/wlwlxj/article/details/1393152


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

组件的封装因为与界面无关,所以问题大多在接口数据类型上。控件与界面有关,很多朋友在开发控件的时候很有激情,看着自己的东东在什么环境下面都可以使用,很是有成就感。然而稍有专业水准的人应该会发现这不是一件完美的事情,因为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测试。

你可能感兴趣的:(activex控件加速键消息处理不完全方案)