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中子元素的栏位值

来源　http:/ /softtest.chinaitlab.com/QTP/752224.html