求教一个WebBrowser控件的使用问题
用WebBrowser 打开一个页面后,如何让右边的滚动条自动向下滚动,类似于自动下翻页面的效果,直到页面底部
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