- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请问如何将WebBrowser里的MHT自适应大小？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149547)
-- 发布时间：2020/5/5 23:25:00
-- 请问如何将WebBrowser里的MHT自适应大小？
Dim tmp As String = "D:\\报价\\12342435.xlsx"
Dim mht As String = ProjectPath & "Reports\\资料卡.mhtml"
Dim rpt As New XLS.Book(tmp)
rpt.SaveToMHT(mht)
e.Form.Controls("WebBrowser1").Address = mht
-- 发布时间：2020/5/6 8:34:00
--
没有办法控制
-- 发布时间：2020/5/6 23:56:00
--
Dim tmp As String = "D:\\报价\\12342435.xlsx"
Dim mht As String = ProjectPath & "Reports\\资料卡.mhtml"
Dim rpt As New XLS.Book(tmp)
rpt.SaveToMHT(mht)
Dim web As system.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").basecontrol
Web.Navigate(mht)
Do Until Web.ReadyState = 4
Application.DoEvents()
Loop
web.Document.Body.Style = "zoom:0.6"
Dim SE As WinForm.Label = e.Form.Controls("Label1")
SE.text = Web.document.documentElement.clientWidth
上面两句代码怎么写？
我的目的想知道ProjectPath & "Reports\\资料卡.mhtml"的宽度（像素）
[此贴子已经被作者于2020/5/7 0:01:34编辑过]
-- 发布时间：2020/5/7 9:12:00
--
就是Web.document.documentElement.clientWidth，如果不行就没有办法了
-- 发布时间：2020/5/7 22:09:00
--
此主题相关图片如下：01.jpg
-- 发布时间：2020/5/7 22:25:00
--
试试：Web.document.body.ClientRectangle.Width