求助：怎样获取WinlistView中的对象呢？

june.diny

估计又是对象重构的问题，脚本贴出来看看呢

小新弦子

回复 16# june.diny


    大虾是在英文下运行的，试下在简体运行吧，我运行失败。。提示。。

小新弦子

回复 21# june.diny

Sub GetSubItem_Example()

With Dialog("Windows 任务管理器").WinListView("SysListView32")
     For i = 0 To 5
             sSub = "映像名称"
             sReport = sReport + .GetSubItem(i, "映像名称") & vbTab
             sReport = sReport + .GetSubItem(i, "用户名") & vbTab
             sReport = sReport + .GetSubItem(i, "会话 ID") & vbTab
             sReport = sReport + .GetSubItem(i, "CPU") & vbTab
           
             sReport = sReport + vbCr
                         msgbox sReport
    ItemName = .GetItem(i)

     msgbox ItemName
        Next



         sReport = sReport + .GetSubItem("QTPro.exe", 0) & vbTab
         sReport = sReport + .GetSubItem("QTPro.exe", 1) & vbTab
         sReport = sReport + .GetSubItem("QTPro.exe", 2) & vbTab
         sReport = sReport + .GetSubItem("QTPro.exe", 3) & vbTab
      
         sReport = sReport + vbCr
   
    End With
    Reporter.ReportEvent micDone, "Task Manager", sReport

End Sub
GetSubItem_Example()
简体的任务管理器，运行时提示参数不正确。。咋回事。。

小新弦子

回复 21# june.diny

Dialog("人员权限管理").WinObject("当前角色：_2").Click 110,10
        roleName=DataTable("角色", dtLocalSheet)
        arrRoleName = Split(roleName, "_")
'        返回一个数组

'    ReDim Columns(10)
        Set obj =dialog("人员权限管理").WinListView("所有角色列表")
     '获取列数
        cColumns = Obj.ColumnCount()
'                将列名保存
        For iColumn = 0 To cColumns - 1
         Columns(iColumn) = Obj.GetColumnHeader(iColumn) 运行到这出错，下面的代码就运行不了了
        Next
'                获取行数
        cItems = Obj.GetItemsCount
'                对每一行获得其属性
'   For iItems = 0 To cItems - 1
        For iColumn =0 To cColumns - 1
           str = Obj.GetSubItem(iItems ,Columns(iColumn))
           Msgbox str
          For i = 0 To UBound(arrRoleName)
             If str=arrRoleName(i) Then
            Dialog("人员权限管理").WinButton(">").Click
                    End If
         Next
     Next
这是代码。。就是仿着那个酷狗音乐盒那个写的。。

liujinkui

回复 24# 小新弦子


有可能跟**版的关系，或是HP QTP10.0的一个BUG
我今天在8.2上运行一点问题没有。

小新弦子

回复 25# liujinkui
恩。哎。。。今天装了一堆补丁。。好像还是不行。。。。先放放吧。。

小新弦子

现在问题解决了。额啥也没动。现在winlistview的select,expand的方法都可以用了。搞不清啥原因，不过能实现我要的功能了。

shingo0109

回复 27# 小新弦子


    额。。。。我的还是不行， 还是报未指定的错误

小新弦子

回复 28# shingo0109


    我的也是不行，只是我要处理的那个应用在用QTP录制时，可以使用select方法了，原来不可以，这样就可以使用select方法做判断了，而不用那么发杂了。。