如何控制WebBrowser控件的滚动条向下翻向左右翻？

Question

我想做四个按纽，分别让控件里的网页可以左右上下地滚动，应该怎么写呢

Answer 1

'首先添加4个按钮
Option ExplicitPrivate Sub cmdDown_Click()'向下
Call CtrWebBrowser("{DOWN}")
End SubPrivate Sub cmdLeft_Click()'向左
Call CtrWebBrowser("{LEFT}")
End SubPrivate Sub cmdRight_Click()'向右
Call CtrWebBrowser("{RIGHT}")
End SubPrivate Sub cmdUp_Click()'向上
Call CtrWebBrowser("{UP}")
End SubPrivate Function CtrWebBrowser(strKey As String)
    WebBrowser1.SetFocus
    Call SendKeys(strKey)
End Function

Answer 2

取得WebBrowser控件里面的Window对象，，
Dim objWindow As ObjectSet objWindow=WebBrowser1.Document.ParentWindow
Call objWindow.ScrollTo(X,Y)
Set objWindow=Nothing

Answer 3

看出来了，原理是利用SENDKEYS对控件进行模拟击键，方法简单，但思路值得学习

Answer 4

Dim objWindow As ObjectSet objWindow=WebBrowser1.Document.ParentWindow
Call objWindow.ScrollTo(X,Y)
Set objWindow=Nothing这个方法没试过，有空试试