IWebBrowser隐藏滚动条

刚才在项目里看到一个IWebBrowser2,竟然需要通过MoveWindow的方式把滚动条遮挡，如果要缩小IWebBrowser2控件的显示大小呢？这种方法至少我用不习惯，起码也得从源头解决这样的问题吧！

所以百度之，谷歌之~

我的项目使用的是WTL/ATL，所以用WTL/ATL的方式写了一个隐藏滚动条的实现、勿喷~~~

IWebBrowser2的定义和初始化，我就不用说了，这里直接在NavigateComplete里写的，

 1 /*
 2 * CComPtr<IWebBrowser2> m_spWebBrowser;
 3 */
 4
 5
 6 /*
 7 * function: onNavigateComplete
 8 * param1: IDispacth *pDisp(LPDISPATCH)
 9 * param2: VARIANT *URL
10 * SINK_ENTRY(DIID_DWebBrowserEvents2, DISPID_NAVIGATECOMPLETE2, OnNavigateComplete)
11 */
12 if (pDisp == m_spWebBrowser && URL != NULL)
13     {
14         CComQIPtr<IHTMLDocument2> spHTMLDocument;
15         CComPtr<IDispatch> spDispDoc;
16         HRESULT hr = m_spWebBrowser->get_Document(&spDispDoc);
17         if (FAILED(hr) || !spDispDoc)
18         {
19             goto end;
20         }
21         hr = spDispDoc->QueryInterface(&spHTMLDocument);
22         if (FAILED(hr) || !spHTMLDocument)
23         {
24             goto end;
25         }
26         CComQIPtr<IHTMLElement> spElement;
27         CComQIPtr<IHTMLBodyElement> spBodyElement;
28
29         if(SUCCEEDED(spHTMLDocument->get_body(&spElement)))
30         {
31             if (SUCCEEDED(spElement->QueryInterface(IID_IHTMLBodyElement, (void **)&spBodyElement)))
32             {
33                 spBodyElement->put_scroll(L"no");
34             }
35             CComQIPtr<IHTMLStyle> spHTMLStyle;
36             spElement->get_style(&spHTMLStyle);
37             if (spHTMLStyle != NULL)
38             {
39                 spHTMLStyle->put_overflow(L"hidden");
40                 spHTMLStyle->put_border(L"none");
41                 //spHTMLStyle->Release();
42             }
43             //spElement->Release();
44         }
45     }
46 end:
47     //错误处理