【QTP】页面滚动条WinScrollBar对象操作（滚动条操作）

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