QTP 如何批量选中网页中的CheckBox

最新推荐文章于 2019-09-05 15:46:16 发布

weixin_30707875

最新推荐文章于 2019-09-05 15:46:16 发布

阅读量75

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/sirrah/articles/2352157.html

本文介绍了一种使用QTP批量选中网页中所有CheckBox的方法，并提供了具体的实现代码及运行效果示例。

　　使用QTP的过程中可能会遇到需要批量选中网页中的CheckBox，大致如下图：

　　具体代码如下：

Call CheckAllBox
Function CheckAllBox
	Set BrowserDesc = Browser("micclass:=Browser")
	Set PageDesc = BrowserDesc.Page("micclass:=Page")
	Set CheckBoxDesc = Description.Create
	CheckBoxDesc("micClass").value = "WebCheckBox"
	Set CheckBoxList = PageDesc.ChildObjects(CheckBoxDesc)
	If CheckBoxList.count > 0 Then
		For i = 0  To CheckBoxList.count - 1
			CheckBoxList(i).click
		Next
	Else
		Msgbox "抱歉！您当前页面不存在 WebCheckBox 对象！"
	End If
End Function

　　运行代码的效果图如下：