【QTP】获取WinListView表中所有信息

[vb] view
plain copy

print?

Window("Window").Activate

Dim Columns(10)

Set obj = Window("Window").Window("Window").WinListView("巡更点信息")

Col= Obj.ColumnCount()

'获取列表标题栏的信息

For i = 0 To Col - 1

Col(i) = Obj.GetColumnHeader(i)

print "Col("& i & ")" & Col(i)

Next

'获取列表中的所有信息

n = Obj.GetItemsCount

For i = 0 To n - 1

print "i = " & i

str =i+1 & vbCr

For j =0 To Col - 1

str = str & Obj.GetSubItem(i ,Col(j)) & vbCr

print str

Next

Next

Set obj = nothing