VB6 webbrowser 如何控制滚动条的上下滚动

如题，有现成的网站，我用VB包了一下，使用了webbrowser  里面出现的滚动条我想通过按钮来控制上下滚动，请各位高手指点下，我是VB新手，分少了点，请帮忙！谢谢

3 个解决方案

#1

最简单的
SendKeys "{pageup}"
SendKeys "{pagedown}"

#2

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

#3

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.163.com/"
End Sub
Private Sub Command1_Click()
  
MsgBox WebBrowser1.Document.body.scrollwidth
MsgBox WebBrowser1.Document.body.scrollheight
'移动到窗口的中间
WebBrowser1.Document.ParentWindow.Scroll WebBrowser1.Document.body.scrollwidth / 2, WebBrowser1.Document.body.scrollheight / 2
End Sub