Foxtable(狐表)用户栏目专家坐堂 → 【已解决】[求助]如何写代码让窗口内的WebBrowser跳到最底部


  共有1759人关注过本帖树形打印复制链接

主题:【已解决】[求助]如何写代码让窗口内的WebBrowser跳到最底部

帅哥哟,离线,有人找我吗?
zto001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
【已解决】[求助]如何写代码让窗口内的WebBrowser跳到最底部  发帖心情 Post By:2019/5/4 15:21:00 [只看该作者]

[求助]如何写代码让窗口内的WebBrowser跳到最底部
[此贴子已经被作者于2019/5/5 13:22:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/4 15:26:00 [只看该作者]

Dim web = e.Form.controls("webbrowser1").basecontrol
web.Document.Window.ScrollTo(1000, 1000)


 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By: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)

 回到顶部