expand问题

thomy2010

为什么只能展开3个节点，请高手解答.
With window("text:=HP QuickTest Professional Tutorial").wintreeview("nativeclass:=Systreeview32")
'a=.getItemsCount
'msgbox a
For k=0 to  .GetItemsCount
        .expand k
Next
End With

thomy2010

谢谢！能告诉我为什么吗?呵呵...必须用数组吗?而且数组还得redim一次

TIB

Dim A
A = Array(5)
Set TreeView = Window("HP QuickTest Professional").WinTreeView("SysTreeView32")
ReDim A(TreeView.GetItemsCount)
For I = 0 to TreeView.GetItemsCount - 1
        a(I)= TreeView.GetItem(I)
Next

For I = 0 to Ubound(a) - 1
        TreeView.Expand a(I)
Next