qtp能不能测试界面上是否有滚动条

cdq1010

qtp能不能测试界面上是否有滚动条

zhuyuancan

判断滚动条是否存在？？？？可以的

jackymail

原帖由 zhuyuancan 于 2007-12-10 09:56 发表
判断滚动条是否存在？？？？可以的

怎么判断呢，给个例子吧？

xiaonan

去判断一下,滚动条的对象 是否存在?  应该可以根据它的visible属性.或者直接用exist方法来判断

板砖

可以

jackymail

原帖由 xiaonan 于 2007-12-10 10:17 发表
去判断一下,滚动条的对象 是否存在?  应该可以根据它的visible属性.或者直接用exist方法来判断

可否具个例子？我主要是不明白你们怎么获取滚动条对象的，谢谢。

yzem99

Window("title:=window name").WinScrollBar("Index:=0).Exist(0)

lilysun0411

可以的,录个滚动条对象.

jackymail

原帖由 yzem99 于 2007-12-10 11:16 发表
Window("title:=window name").WinScrollBar("Index:=0).Exist(0)

哦，原来是这样。我一直测试的Web的。请问Web的滚动条对象怎么表示呢?

joseph_wh

你把那东西录制一次，看看就知道了。

jackymail

原帖由 joseph_wh 于 2007-12-10 11:50 发表
你把那东西录制一次，看看就知道了。

就是我一直没有录制到Web的滚动条所以才来问的

jinsen

如果只是判定画面是否存在ScrollBar的话，可以试试下面的代码:

Dim pageobj
Set pageobj = Browser("CreationTime:=0").Page("Index:=")
print pageobj.Object.body.currentStyle.overflow

这会返回当前指定画面的ScrollBar的运行时候的状态。
显示:visible
隐藏:hidden

PS:这个无法判断ScrollBar可不可用。

cdq1010

单独的页面好像可以

Page下有Frame
如何判断Frame内是否有滚动条呢?

jinsen

使用相同的方法也能判断:
Dim pageobj
Set pageobj = Browser("CreationTime:=0").Page("index:=").Frame("name:=Frame")
print pageobj.Object.body.currentStyle.overflow

cdq1010

为什么我的结果不一样？

Print 在QTP8.2下是不是不能用啊？

jinsen

很对不起，上次说明由于我的调查不足，误导了你。以下是正确的解释:
currentStyle:
代表了在全局样式表、内嵌样式和 HTML 标签属性中指定的对象格式和样式。
返回反映页面所应用的样式设置的值，但可能并不反映获取值时渲染所采用的值。
Overflow:
visible:Default. Content is not clipped and scroll bars are not added.
scroll:Content is clipped and scroll bars are added, even if the content does not exceed the dimensions of the object.
hidden:Content that exceeds the dimensions of the object is not shown.
auto:Content is clipped and scrolling is added only when necessary.

jackymail

原帖由 jinsen 于 2007-12-17 13:57 发表
很对不起，上次说明由于我的调查不足，误导了你。以下是正确的解释:
currentStyle:
代表了在全局样式表、内嵌样式和 HTML 标签属性中指定的对象格式和样式。
返回反映页面所应用的样式设置的值，但可能并不反映获 ...

厉害阿，长见识，受启发。