Go to pimshell (3)-implement tabnew behavior (behavior)

IE7 implements the multi-tab feature. You can use the target property to indicate that the link is opened in a window, but cannot use a similar property to indicate that the link is opened in a new tag. Now we implement a behavior (behavior) and attach it to element a, so that the new tag is automatically opened when the link is clicked. The effect is as follows:

1. <A style = "behavior: URL (# default # tabnewdemo);" tabnewactive = "true" href = "http://www.pimshell.com"> test </a>
2. Tabnewactive: indicates whether the new tag is activated.

You can also

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

Let's take a look at how IE handles tabnewdemo behavior.

1. IE finds that the behavior name appended to element a is "# default # tabnewdemo". Default indicates that this is a registered default behavior. In the registry key HKLM/software/Microsoft/Internet Explorer/default behaviors, find the classid of the behavior factory component corresponding to tabnewdemo.
2. Create an instance of the behavior factory component and call the behavior factory method findbehavior to obtain the behavior instance.
3. Call the init method of the behavior instance to pass environment parameters.
4. Call the action instance method notify. Here, the action is bound to The onclick event of the current A element.
5. Ready. When a user clicks Element A, the Action responds to the onclick event and opens the link in the new tag by calling webbrowser. navigate2.
6. When the page is closed, call the action instance method detach and clear the resource here.

The following describes how to implement tabnewdemo behavior.

 

Step 1: Create an atl com named tabnew,

Add the following registry key to 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. }

Step 2: Inherit the ielementbehaviorfactory interface and implement the findbehavior method:

1. // Ielementbehaviorfactory
2. Stdmethodimp ctabnew: findbehavior (BSTR bstrbehavior, BSTR bstrbehaviorurl,
3. Ielementbehaviorsite * psite, ielementbehavior ** ppbehavior)
4. {
5. Hresult hr;
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. }

Step 3: Inherit the ielementbehavior interface and implement three methods:

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. }

Step 4: bind an onclick event using the _ attachevents Method

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. // Shocould 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. }

Step 5: Respond to The onclick event

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;
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. // Shocould 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 );
65. // OK
66. E-> returnvalue = false;
67. E-> cancelbubble = true;
68. }

* Source Code download:Http://www.pimshell.com/pimshell/downloads/PIMShellDemo.zip

* System binds the mechanism of the element onclick event, see: http://blog.csdn.net/pimshell/archive/2008/08/05/2773717.aspx