如何改变WebBrowser控件中字体大小和文字编码

[Davy]

[huntout]

好像是用 ExecWB 方法

[Davy]

我的要求是像IE中/查看/文字大小菜单中那样,另外huntout能不能请你说清楚一点,用什么参数

[huntout]

這是vc的例子:

COleVariant vaFontScale((long)m_Fonts.GetCurSel());
m_WebBrowser.ExecWB(OLECMDID_ZOOM,
OLECMDEXECOPT_DONTPROMPTUSER,
&vaFontScale,
NULL);

[Davy]

huntout,不好意思,我不懂VC,COleVariant vaFontScale((long)m_Fonts.GetCurSel())是什么意思,我用以下VB代码不行,该怎么改?
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CVar(41), Null
拜托,救人一命,胜造七级浮屠

[Davy]

老天,这是怎么啦,贴子发不上去,一上去就是4个

[killerl]

不太清楚你的问题！
webbrowser 中的字体大小是根据你 Navigate 的 .html文件中的字体大小决定的!

[playyuer]

字体大小是由被访问的页面(HTML源代码) 控制的,如:
<FONT></FONT>等标志

[fohu]

改变编码可以用document.charset='gb2312'等,详细的可见msdn
改变字体大小:
var
size:OleVariant;
begin
size:=1;
web_Browser.ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DONTPROMPTUSER,size,size);

[fohu]

改字体大小
OleVariant size=3;
WebBrowser1.ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DODEFAULT,size,size);
改文字编码
(WebBrowser1.Document as DispHtmlDocument).CharSet:='gb2312';
WebBrowser1.Refresh;