| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]webBrowser控件滚动条怎么设置保持最底端 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60925) |
| -- 作者：RYL -- 发布时间：2014/12/4 9:29:00 -- [求助]webBrowser控件滚动条怎么设置保持最底端 网页控件绑定一个html文件，文件有内容更新时，刷新网页控件就回到最顶部了，怎么用代码设置刷新后滚动条在最底部 |
| -- 作者：有点甜 -- 发布时间：2014/12/4 9:33:00 -- Dim web As Object = 控件.BaseControl web.document.Window.ScrollTo(320, 1520)
|
| -- 作者：RYL -- 发布时间：2014/12/4 10:03:00 -- 为啥是320，1520这两个值 |
| -- 作者：有点甜 -- 发布时间：2014/12/4 10:04:00 -- 你可以获取页面的宽高，然后设置进去。 |
| -- 作者：RYL -- 发布时间：2014/12/4 10:05:00 -- 是网页控件的高度还是整个窗口的高度 |
| -- 作者：有点甜 -- 发布时间：2014/12/4 10:08:00 -- 最简单，就是你设置一个很大的值即可。 |
| -- 作者：RYL -- 发布时间：2014/12/4 10:13:00 -- 还有个问题 brw.Address = fn MessageBox.Show("123") web.Document.Window.ScrollTo(0, 1520) 这样的话是可以的 brw.Address = fn web.Document.Window.ScrollTo(0, 1520) 这样写还是在最顶端，这是什么原因？需要判断网页是否已经加载完成？
|
| -- 作者：有点甜 -- 发布时间：2014/12/4 10:17:00 -- 等加载完毕
Do Until web.ReadyState = 4 web.Document.Window.ScrollTo(0, 1520) |
| -- 作者：大红袍 -- 发布时间：2015/5/26 22:59:00 -- Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") brw.Address = "http://www.foxtable.com/" Dim web = brw.BaseControl Do Until web.ReadyState = 4 Application.DoEvents Loop web.Document.Window.ScrollTo(0, 1520) |
| -- 作者：moxuejiahui -- 发布时间：2015/5/26 23:00:00 -- 谢谢 |