查了有些资料,有人推荐使用GetTextLocation 方法
其举例的代码为:
Sub MoveItemByText(objFrom,strFrom,objTo,strTo)
Dim l,r,t,b,l1,r1,t1,b1'Drag Item by specified text
objFrom.GetTextLocation strFrom, l, t, r, b
objFrom.Drag (l+r)/2, (t+b)/2, 1
' Drop Item on specified text
objTo.GetTextLocation strTo, l1, t1, r1, b1
objTo.Drop (l1+r1)/2, (t1+b1)/2, 1
End Sub
'将hsjzfling从Names列表中拖拽到Result列表的Champion子列表中
Set bjAct = VbWindow("frmOvertime").ActiveX("ActiveX").ActiveX("ActiveX").ActiveX("ActiveX")
MoveItemByText objAct.VbTreeView("Names"), "hsjzfling", objAct.VbTreeView("Result"), "Champion"
我不是很明白的其含义,请哪位大师讲解一下,可好?先谢谢了哈 |