Foxtable(狐表)用户栏目专家坐堂 → [求助]webBrowser控件滚动条怎么设置保持最底端


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

主题:[求助]webBrowser控件滚动条怎么设置保持最底端

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


加好友 发短信
等级:婴狐 帖子:63 积分:513 威望:0 精华:0 注册:2014/6/9 17:38:00
[求助]webBrowser控件滚动条怎么设置保持最底端  发帖心情 Post By:2014/12/4 9:29:00 [只看该作者]

网页控件绑定一个html文件,文件有内容更新时,刷新网页控件就回到最顶部了,怎么用代码设置刷新后滚动条在最底部

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


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

Dim web As Object = 控件.BaseControl

web.document.Window.ScrollTo(320, 1520)

 


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


加好友 发短信
等级:婴狐 帖子:63 积分:513 威望:0 精华:0 注册:2014/6/9 17:38:00
  发帖心情 Post By:2014/12/4 10:03:00 [只看该作者]

为啥是320,1520这两个值

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


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

 你可以获取页面的宽高,然后设置进去。


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


加好友 发短信
等级:婴狐 帖子:63 积分:513 威望:0 精华:0 注册:2014/6/9 17:38:00
  发帖心情 Post By:2014/12/4 10:05:00 [只看该作者]

是网页控件的高度还是整个窗口的高度

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


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

 最简单,就是你设置一个很大的值即可。

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


加好友 发短信
等级:婴狐 帖子:63 积分:513 威望:0 精华:0 注册:2014/6/9 17:38:00
  发帖心情 Post By: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)
这样写还是在最顶端,这是什么原因?需要判断网页是否已经加载完成?

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


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

 等加载完毕

 

 

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

web.Document.Window.ScrollTo(0, 1520)


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:105 积分:849 威望:0 精华:0 注册:2015/1/25 23:22:00
  发帖心情 Post By:2015/5/26 23:00:00 [只看该作者]

 谢谢

 回到顶部