qtp 遍历List控件

[vb]  view plain copy print ?

1. Window("Window").Activate  
2.   
3. Dim Columns(10)  
4. Set obj = Window("Window").Window("Window").WinListView("巡更点信息")  
5. Col= Obj.ColumnCount()  
6.   
7. '获取列表标题栏的信息  
8. For i = 0 To Col - 1  
9.  Col(i) = Obj.GetColumnHeader(i)  
10.  print "Col("& i & ")" & Col(i)  
11. Next  
12.   
13. '获取列表中的所有信息  
14. n = Obj.GetItemsCount  
15. For i = 0 To n - 1  
16.  print "i = " & i  
17.  str =i+1 & vbCr  
18.  For j =0 To Col - 1  
19.   str = str & Obj.GetSubItem(i ,Col(j)) & vbCr  
20.   print str  
21.  Next  
22. Next  
23. Set obj = nothing