qtp里选择extjs复选框的方法
上一篇 /
下一篇 2013-06-13 20:53:32
/ 个人分类：qtp
昨天傻傻的改了class属性，以为选中了
extjs的grid里的行，其实只是页面显示（看起来）选中了，没有实际选中。
今天想到
qtp的两种回放模式，改成mouse模式，正常的点击那个
div就可以了。
setting.webpackage("replayType")=2
昨天的方法：
今天在用qtp编写脚本时，遇到一个问题。
一个复选框是在qtp里识别问webelement，其实就是个div.
先是之间用这个对象的click方法。但回放的时候，这个复选框没有被选中。
通过firebug分析，复选框是否选中是这个div的class值的变化。
问题的关键是识别这个div,改变它的class.一种方法是用
DOM，一种是描述性编程。
今天用DOM实现了。描述性编程回头再研究。
写了一个sub,如下：
Sub selectDevice (deviceText)
Dim deviceNum,divClass
set deviceNum=Browser("Home Page").Object.Document.getElementsByClassName("x-grid3-cell-inner x-grid3-col-2")
For each element in deviceNum
If element.innerText =deviceText Then
divClass=element.parentNode.parentNode.parentNode.parentNode.parentNode.className
element.parentNode.parentNode.parentNode.parentNode.parentNode.setAttribute "class",divClass&" x-grid3-row-selected"
Exit for
End If
Next
End Sub
Sub selectDevices (deviceTexts())
Dim deviceNum,divClass
set deviceNum=Browser("Home Page").Object.Document.getElementsByClassName("x-grid3-cell-inner x-grid3-col-2")
For each element1 in deviceTexts
For each element in deviceNum
If element.innerText =element1 Then
divClass=element.parentNode.parentNode.parentNode.parentNode.parentNode.className
element.parentNode.parentNode.parentNode.parentNode.parentNode.setAttribute "class",divClass&" x-grid3-row-selected"
Exit for
End If
Next
Next
End Sub
收藏
举报
TAG:
div
DIV
DOM
QTP
qtp
extjs
