june.diny 发表于 2011-3-4 13:23:58

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

小新弦子 发表于 2011-3-4 13:44:55

回复 16# june.diny


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

小新弦子 发表于 2011-3-4 13:48:07

回复 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()
简体的任务管理器，运行时提示参数不正确。。咋回事。。

小新弦子 发表于 2011-3-4 14:01:23

回复 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 发表于 2011-3-7 09:17:48

回复 24# 小新弦子


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

小新弦子 发表于 2011-3-7 13:06:34

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

小新弦子 发表于 2011-3-10 16:41:16

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

shingo0109 发表于 2011-3-10 17:20:48

回复 27# 小新弦子


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

小新弦子 发表于 2011-3-21 10:56:05

回复 28# shingo0109


    我的也是不行，只是我要处理的那个应用在用QTP录制时，可以使用select方法了，原来不可以，这样就可以使用select方法做判断了，而不用那么发杂了。。:loveliness:
页: 1 [2]
查看完整版本: 求助：怎样获取WinlistView中的对象呢？