以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  网页缩放  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74997)
--  作者：foxor
--  发布时间：2015/9/24 10:37:00
--  网页缩放
请教网页缩放代码
--  作者：大红袍
--  发布时间：2015/9/24 10:53:00
--  

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl
web.Navigate("http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=53095")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

web.Document.Body.Style = "zoom:0.5"
--  作者：foxor
--  发布时间：2015/9/24 10:57:00
--  
谢谢大红袍老师！