(转)QTP的分页,另一种方法
上一篇 /
下一篇 2008-12-20 10:21:55
/ 个人分类:QTP
'功能:分页
'说明:对于需要调用此方法的使用者,可以自己改造,例如对于
' 检查页面值时,可以使用While...Wend 语句,判断当前页是否包括
'如果没有点击下一页或者上一页。
'intTotal_Page 总页数 intCur_Page 当前页
'************************************************************************
Public Sub Pagination ()
Reporter.ReportEvent micDone ,"调用 Pagination ()","Start"
intTotal_Page=Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).WebElement("html id:=total_page").GetROProperty("innertext")
msgbox intTotal_Page
intCur_Page=Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).WebElement("html id:=cur_page").GetROProperty("innertext")
msgbox intCur_Page
If (intTotal_Page=0and intCur_Page=0)or (intTotal_Page=1and intCur_Page=1) Then
Reporter.ReportEvent micpass ,"分页","没有分页"
End If
if (intCur_Page<intTotal_Page) then
Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).Image("file name:=pages_go.gif").Click
end if
If (intTotal_Page= intCur_Page) then
Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).Image("file name:=pages_back.gif").Click
end if
Reporter.ReportEvent micDone ,"调用 Pagination ()","End"
End Sub
收藏
举报
TAG: