【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

2 thoughts on “【QTP】页面滚动条WinScrollBar对象操作

  1. 最近在练习滚动条发现Obj.ScrollTop=ScrollHeight,Obj.Object.body.doScroll(“scrollbarUp”)针对的都是page 对象,那如果想要在Frame或WebTable里拖动滚动条使用这些方法报错不支持此方法那应该怎样做呢?

发表评论

邮箱地址不会被公开。

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据