VB6错误求改正:WebBrowser3.Document.FontName = "宋体"?

ami555 2009-02-18 10:43:16

VB6错误求改正:WebBrowser3.Document.FontName = "宋体"?
应该怎么改才能设定WebBrowser的字体信息?

...全文

104 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhou_senjian 2009-03-06

打赏
举报

回帖是一种美德！每天回帖即可获得 10 分可用分！

GodKissme 2009-03-05

打赏
举报



 Webbrowser1.Navigate("about:blank")

 Webbrowser1.Document.Write("<body><font FACE=" & Chr(32) & "Modern" & Chr(32) & "><FONT SIZE=+2>Hello world!</FONT></body>")

webbrowser 控件中字体需要用Html代码来控制显示的。
试用Html代码方式来更改字体！

axibi 2009-03-01

打赏
举报

jiefen-

ami555 2009-02-24

打赏
举报

好像没有高手来过.

ami555 2009-02-20

打赏
举报

[Quote=引用 5 楼 oyljerry 的回复:]
5个尺寸：
long font = 1至5;
COleVariant varIn(font);
CHtmlView::ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,&varIn, NULL);

随便几种字体：
static BSTR szText[]= {
L"unicode",
L"gb2312",
L"big5",
L"iso-8859-1",
NULL
};
try
{
m_pDoc2 = (IHTMLDocument2 *)GetHtmlDocument();
if(!m_pDoc2)return;
…
[/Quote]

谢谢.不过这不是VB6的啊?

oyljerry 2009-02-19

打赏
举报

5个尺寸：
long font = 1至5;
COleVariant varIn(font);
CHtmlView::ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,&varIn, NULL);

随便几种字体：
static BSTR szText[]= {
L"unicode",
L"gb2312",
L"big5",
L"iso-8859-1",
NULL
};
try
{
m_pDoc2 = (IHTMLDocument2 *)GetHtmlDocument();
if(!m_pDoc2)return;

m_pDoc2->put_charset( szText[0至4]);
Refresh2(1);

}catch(...){}

白发程序猿 2009-02-19

打赏
举报

好像是要用ExecWB这个方法吧

ami555 2009-02-19

打赏
举报

[Quote=引用 2 楼 SYSSZ 的回复:]
WebBrowser3.Document.FontName
我试了好几次,对象根本不支持这种属性
[/Quote]

我也测试这根本就是错误的,我希望的是有高手会这个:如何设置其文本属性(不是设置选中的,而是设置全部的)?

ami555 2009-02-19

打赏
举报

[Quote=引用 1 楼 ling242a 的回复:]
好像是要用ExecWB这个方法吧
[/Quote]

WebBrowser.ExecWB(1,1) 打开
WebBrowser.ExecWB(2,1) 关闭现在所有的IE窗口，并打开一个新窗口
WebBrowser.ExecWB(4,1) 保存网页
WebBrowser.ExecWB(6,1) 打印
WebBrowser.ExecWB(7,1) 打印预览
WebBrowser.ExecWB(8,1) 打印页面设置
WebBrowser.ExecWB(10,1) 查看页面属性
WebBrowser.ExecWB(15,1) 好像是撤销，有待确认
WebBrowser.ExecWB(17,1) 全选
WebBrowser.ExecWB(22,1) 刷新
WebBrowser.ExecWB(45,1) 关闭窗体无提示

好像只有这些?

SYSSZ 2009-02-19