求教一个WebBrowser控件的使用问题
用WebBrowser 打开一个页面后,如何让右边的滚动条自动向下滚动,类似于自动下翻页面的效果,直到页面底部
做之前说说我怎么做的:其实对WebBrowser控件我也不熟,甚至连加载网页都不知道,我做出本题的步骤如下:
1、百度“WebBrowser控件属性”,得知Navigate加载主页,获知DocumentComplete事件在网页加载完成后触发,有这两点知识就行了
2、百度“vb如何控制WebBrowser滚动条”,在csdn论坛里找到一篇文章,里面有详细代码,我知道用WebBrowser1.Document.ParentWindow.Scroll 左右滚参数,上下滚参数,其他代码我也看懂了,复制下来备用
3、自动滚就是让计算机自动执行操作,计时器这时可派上用场,这个知识我有,不用百度,开始写代码如下(什么建立工程、安排控件等不一一赘述):
程序代码:
Private Sub Form_Load() Timer1.Enabled = False WebBrowser1.Navigate "http://bbs.bccn.net/forum-6-1.html" End Sub Private Sub Timer1_Timer() Static p As Integer '建立一个静态变量存储当前滚动位置,什么是静态变量及作用请百度 If p < 3000 Then WebBrowser1.Document.ParentWindow.Scroll 0, p p = p + 1 Else Timer1.Enabled = False '估计到了底部,停止滚动,实际上可用Document的其他方法获得精确底部位置 End If End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) '主页加载完成,设置计时器准备滚动 Timer1.Interval = 10 Timer1.Enabled = True End Sub
工程文件:
控制web滚动条.rar
(2.06 KB)