Question

如何使webbrowser中的网页适应大小

Answer 1

WebBrowser1.OleObject.Document.Body.Style.zoom :=2;
就能放大2倍

重大或有趣的对象属性：

WebBrowser.OleObject.Document
WebBrowser.OleObject.Document.All
WebBrowser.OleObject.Document.bgColor
WebBrowser.OleObject.Document.Body.Style.overflowX
WebBrowser.OleObject.Document.Body.Style.overflowY
WebBrowser.OleObject.Document.Body.Style.zoom
WebBrowser.OleObject.Document.cookie
WebBrowser.OleObject.Document.documentElement.innerHTML
WebBrowser.OleObject.Document.documentElement.innerText
WebBrowser.OleObject.Document.FileSize
WebBrowser.OleObject.Document.Frames
WebBrowser.OleObject.Document.Images
WebBrowser.OleObject.Document.LastModified
WebBrowser.OleObject.Document.Links
WebBrowser.OleObject.Document.Location.Protocol
WebBrowser.OleObject.Document.ParentWindow
WebBrowser.OleObject.Document.ParentWindow.ScrollBy （九：整数; iY ：整数）
WebBrowser.OleObject.Document.selection
WebBrowser.OleObject.Document.Title
WebBrowser.OleObject.Document.URL

追问

.OleObject调不到怎么回事，在哪儿调？？？、

追答

var
zoom:OleVariant;
begin
zoom:=200;
WebBrowser1.ExecWB(63,2,zoom,EmptyParam);

这样就可以放大了，参数参考

追问

我也百度过这个，就是不知道怎么用啊， 是写在什么事件里的，var 是多余的吗

追答

CRect rect;
GetClientRect(&rect);
m_Browser.SetWindowPos(NULL,0,0,rect.Width()-20,rect.Height()-30,SWP_SHOWWINDOW|SWP_NOMOVE);
//m_Browser 是webbrowser控件对象