走进PIMShell(3)--实现TabNew行为(Behavior)

IE7实现了多标签（Tab）的特性。我们可以通过target属性指示链接在某个窗口中打开，却无法通过类似的属性指示链接在新的标签中打开。现在我们实现一个行为(Behavior)，附加到元素a，从而实现点击链接时自动在新的标签打开。效果如下

1. <a style="behavior:url(#default#TabNewDemo);" tabNewActive="true" href="http://www.pimshell.com">test</a>
2. tabNewActive：指示新的标签是否激活

也可以这样

1. .TabNewDemo{behavior:url(#default#TabNewDemo);}
3. <a class="TabNewDemo" href="http://www.pimshell.com">goto my homepage</a>

我们看一下IE是如何处理这个TabNewDemo行为的。

1. IE发现元素a附加的行为名称是“#default#TabNewDemo”，default说明这个是已注册的缺省行为。在注册表项HKLM/SOFTWARE/Microsoft/Internet Explorer/Default Behaviors中查找TABNEWDemo对应的行为工厂组件的ClassId。
2. 创建行为工厂组件的实例，然后调用行为工厂的方法FindBehavior，从而得到行为的实例。
3. 调用行为实例的方法Init，传递环境参数。
4. 调用行为实例的方法Notify，在这里行为绑定当前a元素的onclick事件
5. 准备就绪。当用户点击a元素时，行为响应onclick事件，通过调用WebBrowser.Navigate2实现在新标签中打开链接
6. 页面关闭时，调用行为实例的方法Detach，在这里清理资源。

下面是TabNewDemo行为的实现步骤

 

第一步：建立一个ATL Com，名称为TabNew，

并在PIMShellDemo.rgs加入如下注册表项

1. HKLM
2. {
3.     NoRemove SOFTWARE
4.     {
5.         NoRemove Microsoft
6.         {
7.             NoRemove 'Internet Explorer'
8.             {   
9.                 NoRemove 'Default Behaviors'
10.                 {
11.                     val TABNEWDemo = s 'CLSID:E785D34B-7C76-4FC2-B6FE-E2A2AABEEDD9'
12.                 }
13.             }
14.         }
15.     }
16. }

第二步：继承接口IElementBehaviorFactory，实现方法FindBehavior：

1. // IElementBehaviorFactory
2. STDMETHODIMP CTabNew::FindBehavior(BSTR bstrBehavior, BSTR bstrBehaviorUrl,
3.     IElementBehaviorSite* pSite, IElementBehavior** ppBehavior)
4. {
5.     HRESULT hr; 
6.     
7.     //check
8.     if(!CVB::_StrCmpI(bstrBehavior,DF_Behavior_Name))
9.         return E_FAIL;
11.     //create
12.     CComObject<CTabNew>* pTabNew;
13.     hr=CComObject<CTabNew>::CreateInstance(&pTabNew);
14.     if(FAILED(hr))
15.         return hr;
17.     //ok
18.     return pTabNew->QueryInterface(IID_IElementBehavior, (void**)ppBehavior);
19. }

第三步：继承接口IElementBehavior，实现三个方法：

1. // IElementBehavior
2. STDMETHODIMP CTabNew::Init(IElementBehaviorSite* pBehaviorSite)
3. {
4. __SAFECALL_BEGIN;
6.     // Cache the IElementBehaviorSite interface pointer.
7.     m_pSite = pBehaviorSite;
9.     // Cache the IElementBehaviorSiteOM interface pointer.
10.     m_pOMSite = m_pSite;
12.     //
13.     m_pOMSite->RegisterName(DF_Behavior_Name);
15. __SAFECALL_END;
16. }
18. //
19. STDMETHODIMP CTabNew::Notify(LONG lEvent, VARIANT* pVar)
20. {
21. __SAFECALL_BEGIN;
23.     switch(lEvent)
24.     {
25.     case BEHAVIOREVENT_CONTENTREADY:
27.         //attachevents
28.         this->__attachEvents(true);
30.         break;
31.     }
33. __SAFECALL_END;
34. }
36. //
37. STDMETHODIMP CTabNew::Detach()
38. {
39. __SAFECALL_BEGIN;
41.     //detach events
42.     this->__attachEvents(false);
44.     //
45.     this->m_pSite=NULL;
46.     this->m_pOMSite=NULL;
48. __SAFECALL_END;
49. }

第四步：实现绑定onclick事件的方法__attachEvents

1. //
2. void CTabNew::__attachEvents(bool bAttach)
3. {
4.     //element
5.     MSHTML::IHTMLElementPtr pElement=this->m_pSite->GetElement();
6.     MSHTML::IHTMLElement2Ptr pElement2=pElement;
8.     //
9.     if(bAttach)
10.     {
11.         //pSystem 
12.         //          should install PIMShell (http://www.pimshell.com)
13.         PIMShellCore::IAjaxSystem_helperPtr pSystem;
14.         pSystem.CreateInstance(__uuidof(PIMShellCore::CAjaxSystem));
16.         //this
17.         IUnknownPtr pThis=this;
19.         //delegate
20.         m_pDelegate_onevents=pSystem->CreateDelegateVC1(pThis,(LONGLONG)&Sink_onevents);
22.         //attach event of onclick
23.         pElement2->attachEvent(L"onclick",m_pDelegate_onevents);
24.     }
25.     else
26.     {
27.         if(m_pDelegate_onevents!=NULL)
28.         {
29.             //detach event of onclick
30.             pElement2->detachEvent(L"onclick",m_pDelegate_onevents);
32.             //
33.             m_pDelegate_onevents=NULL;
34.         }
35.     }
36. }

第五步：响应onclick事件

1. //
2. HRESULT CTabNew::Sink_onevents(VARIANT vEvent,VARIANT vContext,IUnknown* pInstance,VARIANT* pvarResult)
3. {
4. __SAFECALL_BEGIN;
6.     //init
7.     CTabNew* pThis=dynamic_cast<CTabNew*>(pInstance);
9.     MSHTML::IHTMLEventObjPtr e=vEvent.pdispVal;
11.     //
12.     CString sType=e->type;
14.     //
15.     if(sType==L"click")
16.     {
17.         pThis->__onclick(e);
18.     }
20. __SAFECALL_END;
21. }
23. //
24. void CTabNew::__onclick(const MSHTML::IHTMLEventObjPtr& e)
25. {
26.     //shift or ctrl may by pressed by code.
27.     VARIANT_BOOL bShift,bCtrl,bAlt;
28.     
29.     bShift=e->shiftKey;
30.     bCtrl=e->ctrlKey;
31.     bAlt=e->altKey;
33.     //if shift or ctrl then return
34.     if(bShift || bCtrl || bAlt)
35.     {   
36.         return;
37.     }
39.     //element
40.     MSHTML::IHTMLElementPtr pElement=this->m_pSite->GetElement();
42.     //pSystem 
43.     //          should install PIMShell (http://www.pimshell.com)
44.     PIMShellCore::IAjaxSystemPtr pSys;
45.     pSys.CreateInstance(__uuidof(PIMShellCore::CAjaxSystem));
47.     //tabNewActive href
48.     bool bTabNewActive=pSys->GetAttribute(pElement,L"tabNewActive",false);
49.     _bstr_t bstrHref=pSys->GetAttribute(pElement,L"href",L"");
51.     //webbrowser
52.     CComPtr<IWebBrowser2> pWebBrowser;
53.     __CCuteGeneric::__GetWebBrowser(this->m_pOMSite,&pWebBrowser);
55.     //url
56.     _variant_t vURL=bstrHref;
58.     //flag
59.     LONG nFlags=bTabNewActive?(navOpenInNewTab):(navOpenInBackgroundTab);
60.     _variant_t vFlag=nFlags;
62.     //navigate
63.     pWebBrowser->Navigate2(&vURL,&vFlag,NULL,NULL,NULL);
64.     
65.     //ok
66.     e->returnValue=false;
67.     e->cancelBubble=true;
68. }

* 源码下载：http://www.pimshell.com/pimshell/downloads/PIMShellDemo.zip

* System绑定元素onclick事件的机制，请参考：http://blog.youkuaiyun.com/pimshell/archive/2008/08/05/2773717.aspx