以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  【已解决】[求助]如何写代码让窗口内的WebBrowser跳到最底部  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=134698)
--  作者：zto001
--  发布时间：2019/5/4 15:21:00
--  【已解决】[求助]如何写代码让窗口内的WebBrowser跳到最底部
[求助]如何写代码让窗口内的WebBrowser跳到最底部
[此贴子已经被作者于2019/5/5 13:22:19编辑过]
--  作者：有点甜
--  发布时间：2019/5/4 15:26:00
--  

Dim web = e.Form.controls("webbrowser1").basecontrol
web.Document.Window.ScrollTo(1000, 1000)
--  作者：zto001
--  发布时间：2019/5/5 13:22:00
--  
\'加载页面后延迟0.1秒（需确保页面加载成功）
While Date.Now < sdt.AddSeconds(0.1)
    Application.DoEvents
End While
\'跳到10000（最底端）
web.Document.Window.ScrollTo(0, 10000)