WinScrollBar对象是指滚动条对象,可以使用其中的Set、NextLine、NextPage、PreLine、PrevPage这几个方法来模拟用户拖动滚动条的动作,例如,下面的脚本模拟用户单击Excel应用程序中的滚动条,让其向下滚动1行。另外,也可以模拟用户拖动滚动条,让其向下滚动1页,例如,下面的代码。还可以使用Set方法来把滚动条设置在某个位置,如下面的脚本所示。可以使用GetROProperty方法先获取ScrollBar的maxscrollpos属性,取得可滚动的最大范围,再根据这个值来决定设置滚动条的位置,这样可避免使用Set方法设置的位置超出范围,例如,下面的脚本把滚动条设置在中间位置。
下面就是操作的脚本:
'—————————————————————————————————————————
'名称:ScrollBarUp
'作用:滚动条向上
'参数:Obj:需要滚动的对象;otimes:滚动的次数
'使用:ScrollBarUp(Browser("Browser").Page("Page"),6)
Function ScrollBarUp(Obj,otimes)
On Error Resume Next
Dim i
For i = 1 To otimes
Obj.Object.body.doScroll("scrollbarUp")
Next
Err.Clear
On Error Goto 0
End Function
'—————————————————————————————————————————
'名称:ScrollBarDown
'作用:滚动条向下
'参数:Obj:需要滚动的对象;otimes:滚动的次数
'使用:ScrollBarDown(Browser("Browser").Page("Page"),6)
Function ScrollBarDown(Obj,otimes)
On Error Resume Next
Dim i
For i = 1 To otimes
Obj.Object.body.doScroll("scrollbarDown")
Next
Err.Clear
On Error Goto 0
End Function