现在用的是wshell 的模拟按键
还有别的方法吗？作者: blueeagle9999 时间: 2009-4-28 19:43
用childobjects 方法找到所有的+对象，依次点击就可以了作者: xzcg 时间: 2009-4-29 16:30
只能展开一层吧
我想把所有的都展开
想用递归可是又不能传递参数
改怎么办呢？作者: lijinshui 时间: 2009-4-30 08:05
看看这个巴 http://bbs.51testing.com/thread-146731-1-3.html作者: FLY000 时间: 2009-4-30 10:03
我写了个函数，你44作者: FLY000 时间: 2009-4-30 10:04
Function expand_tree()
Set oDesc=Description.Create()
oDesc("micclass").value="Image"
oDesc("file name").value="plus2.gif"
Set objs=Browser("i@Report通用WEB网络报表平台").Page("i@Report-main").Frame("mainFrame_2").ChildObjects(oDesc)
Numberofobjs=objs.Count()
For i=0 to Numberofobjs-1
objs(i).Click
call expand_tree()
Next
End Function作者: xzcg 时间: 2009-4-30 12:57
oDesc("micclass").value="Image"
oDesc("file name").value="plus2.gif"
这两个是设置+号的属性吧
可是对于windows上面的+不能这样识别
我也没有找到可以识别的办法作者: xzcg 时间: 2009-4-30 12:59
Function TestFunction(temp)
If temp.GetItemsCount>0 Then
For j=1 to temp.GetItemsCount
tempstr=temp.GetROProperty("selection")
temp.select tempstr
temp.expandall tempstr
Next
End If
End Function