走進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.csdn.net/pimshell/archive/2008/08/05/2773717.aspx