WebBrowser控件不能及时更新字体大小

Question

Public Sub SetFontSize(ByVal FontSize As Integer)
WB(OldIdx).ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, FontSize, Null
End Sub
调用此过程后字体没有及时更新. why?

Answer 1

参数必须是 Variant/Long 类型
Public Sub SetFontSize(ByVal FontSize As Long)
    WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CVar(FontSize), Null
End Sub

Answer 2

呵呵。我晕,怎么都不能讲到正题上啊
 WB(OldIdx).ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, 0, Null
 WB(OldIdx).ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, 1, Null
 WB(OldIdx).ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, 2, Null
 WB(OldIdx).ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, 3, Null
 WB(OldIdx).ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, 4, Null
那我写得更简单一些吧，调用这几句字体根本没变化。

Answer 3

页面内容不能都是固定字体的
Option ExplicitPrivate Sub Command1_Click()
    WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CVar(0&), Null
End SubPrivate Sub Command2_Click()
    WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CVar(4&), Null
End SubPrivate Sub Form_Load()
    WebBrowser1.Navigate2 "http://g.cn"
End Sub

Answer 4

又试了下，确实要传对参数类型。很感谢Tiger_Zhao. 不像我想象的那么简单。但是又发现你提供http://g.cn  可以改变大小。但试了其它网站却不能。是不是因为脚本里设置了字体大小的原故？

Answer 5

好多 CSS 样式中都用了固定大小的字体。