weblist多选解决方法:

1.实现思路：先随机获取选中一行，接着选择这一行以下的所有行。

Function Select_weblist(obj)
Dim item_count
item_count=obj.GetROProperty ("items count")
If item_count > 0 Then
Randomize
Get_Ran=RandomNumber (1,item_count-1)
obj.Select "#"&Get_Ran
For i=Get_Ran to item_count-1
        obj.ExtendSelect i
Next
End If
End Function
Select_weblist(Browser("Browser").Page("test").WebList("A"))

 

2.总结下Weblist对象提供的函数：

ExtendSelect方法
向多项选择列表添加选定项 相当于按住ctrl再选择其他项
Browser("Browser").Page("Page").WebList("A").ExtendSelect "aa"

Deselect方法
取消选择列表中的指定项 相当于按住ctrl再取消aa
Browser("Browser").Page("Page").WebList("A").Deselect "aa"

select type属性： select的类型
strType返回为:Extended Selection
strType=Browser("Browser").Page("Page").WebList("A").GetROProperty("select type")

注：GetRoProperty与GetToProperty函数非常重要。

selected item index属性 已选列表的索引
strindex 返回为B,C
strindex=Browser("Browser").Page("Page").WebList("A").GetROProperty("selected item index")

selected items count属性 已选的项目数量
intcount返回为2
intCount=Browser("Browser").Page("Page").WebList("A").GetROProperty("selected items count")

selection属性 选定项目列表
strlist返回为B,C
strlist=Browser("Browser").Page("Page").WebList("A").GetROProperty("selection")

selectindex dom属性，这里返回为1，即B的索引
strDomIndex=Browser("Browser").Page("Page").WebList("A").Object.selectedIndex