谁能提供一个用webbrowser控制页面字体大小的列子，或告诉我有什么方法。

Question

谁能提供一个用webbrowser控制页面字体大小的列子，或告诉我有什么方法。谢谢

Answer 1

RichTextbox能显示网页吗？并且上面规定了用webBrowser(从其他功能考虑）.

Answer 2

http://eagleboost.myrice.com/issues/Materials/Articles/TWebBrowser.htm
里面有Delphi的解决方法

Answer 3

Private Sub resizetext(fontsize As Integer)
'fontsize 应该在0-4之间，对应于从最小到最大
    On Error Resume Next
    WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, fontsize
End Sub

Answer 4

Private Sub Form_DblClick()
Dim X As Variant'Get the current font size
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, , X
MsgBox X'Set the font size  0 to 4
X = 2
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(X)
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://www.tianyaclub.com/new/Publicforum/Content.asp?idWriter=0&Key=0&strItem=water&idArticle=173909&flag=1"
End Sub

Answer 5

USE DHTMLsub command1_click()
web1.document.parentwindoow.document.body.style='font-family:黑体;'
end sub

Answer 6

wsbn(我是笨鸟)的方法我试过，是行不通的，因为fontsize的数据类型在对像浏览器中没有给出，直接用Variant也不可以。要用CLng（fontsize）——括号内的fontsize是Variant类型变量——才行，fontsize值是从0-4，表示从小到大，浏览器默认是中（2）。强烈建议在VB程序开发过程中（特别是在对SUB或对对像属性不是很了解的情况下）不滥用On Error Resume Next来跳过错误，因为这样一来就会给程序调试带来干扰，从而发现不了问题，学不到真正的东东。