当前位置双击操作

muquanyifan

发现QTP里面的双击操作都是绑定在控件上, 并且需要以x,y坐标作为参数的.
有什么方法 让鼠标在当前位置双击一下吗(就是鼠标已经移动到位了,只需要双击)?

cdq1010

tools>>web event recording configration中的custorm Settings
选择Any Web Objects，点击Event菜单->add->ondblclick，将Listen改为Always
然后重新录制脚本，就一切搞定

muquanyifan

.NET 工程示例代码       
         Dim handle
        Dim objIntPtr, objCursor
        Dim xxx, yyy
   
        handle = objTreeView.GetROProperty("hwnd")
        Set objIntPtr = DotNetFactory.CreateInstance("System.IntPtr","",handle)

    Set objCursor = DotNetFactory.CreateInstance_("System.Windows.Forms.Cursor","System.Windows.Forms",objIntPtr)
        xxx  = CInt(objCursor.Position.x)
        yyy = Cint(objCursor.Position.y)
   
    Set dr = CreateObject("Mercury.DeviceReplay")
    dr.MouseDblClick  xxx, yyy, 0