qtp取出WinListView中对象及子对象的属性

    昨天一位朋友问我如何取到搜狗音乐盒播放列表中歌曲的属性，我做了个小试验，将一些函数组合起来用，能够方便的取出WinListView中元素及子元素的属性。以下代码调试通过。

ReDim Columns(10)
Set ōbj = Window("搜狗音乐盒").WinListView("SysListView32")
cColumns = Obj.ColumnCount()
For iColumn = 0 To cColumns - 1
 Columns(iColumn) = Obj.GetColumnHeader(iColumn)
Next
cItems = Obj.GetItemsCount
For iItems = 0 To cItems - 1
 str ="第 "&iItems+1&" 首歌曲属性列表"& vbCr
 For iColumn =0 To cColumns - 1
   str = str &Columns(iColumn)&" = "& Obj.GetSubItem(iItems ,Columns(iColumn)) & vbCr
 Next
 Msgbox str
Next
Set ōbj = nothing

重要函数介绍：
ColumnCount函数：Returns the number of columns in a (report-style) list-view control. -----返回list-view有多少栏位
GetColumnHeader函数：Returns the text header of the specified (report-style) list-view column.-----返回list-view的栏位名
GetItemsCount函数：Returns the number of items in the combo box list.-----返回list中元素个数
GetSubItem函数：Returns the text value of a (report-style) list-view sub-item. -------返回list中子元素的栏位值