qtp：鼠标放在webedit上出现提示框，移出消失对象的获取---急---已解决

renquande

此贴已结：
解决办法如下：
1、spy的时候按住ctrl键，鼠标已到相应的地方，等显示提示信息时，放开ctrl键，然后点击提示信息，就可以捕获该对象了
2、加入对象库的方式，qtp上面有个类似数据库的东西（object repository），弹出页面点+号的小图标（add objects to local)，按住ctrl键，鼠标已到相应的地方，等显示提示信息时，放开ctrl键，然后点击提示信息，就可以捕获该对象了

代码示例：
With  Browser("人保财险营销平台").Page("人保财险营销平台").Frame("baofeishisuan")
       Dim i
                        rows = .WebTable("保障项目_2").RowCount
                        msgbox rows
For i=3 to rows               
wait 2
                        set  ttt=.WebTable("保障项目_2").ChildItem (i,4, "WebEdit",0)
                        ttt.FireEvent "onmouseover"
        If .webelement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").exist Then
                xx= .WebElement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").GetROProperty("outertext")
                                  msgbox xx     
                                 
'                 =======================================================================================================================
           '获取总共有多少行数据，test是sheet页的名字
           ' =======================================================================================================================
      H=DataTable.GetSheet("Action1").GetRowCount
          ' =======================================================================================================================
          '获取行，即使该行为焦点
          ' =======================================================================================================================
      DataTable.SetCurrentRow(H+1)
          ' =======================================================================================================================
          '给该行赋值 ，test和上面一样，是写入的sheet页的名字，tishi是     该sheet页中存在的一个列名
          ' =======================================================================================================================
      DataTable.value("tishi","Action1")=xx
          else
End If
Next                               
End With

renquande

此贴已结：
使用spy时候按住ctrl键不放，等鼠标异动到相应的地方后，显示提示信息后，放开ctrl键，点击该提示信息就可以获取该对象了

renquande

代码示例
With  Browser("人保财险营销平台").Page("人保财险营销平台").Frame("baofeishisuan")
  Dim i
                        rows = .WebTable("保障项目_2").RowCount
                        msgbox rows
For i=3 to rows               
wait 2
                        set  ttt=.WebTable("保障项目_2").ChildItem (i,4, "WebEdit",0)
                        ttt.FireEvent "onmouseover"
        If .webelement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").exist Then
                xx= .WebElement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").GetROProperty("outertext")
                                  msgbox xx

renquande

代码示例：
        set  ttt=.WebTable("保障项目_2").ChildItem (i,4, "WebEdit",0)
                        ttt.FireEvent "onmouseover"
        If .webelement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").exist Then
                xx= .WebElement("折扣：5.00％续优：0.00％优惠金额：318.18折扣明").GetROProperty("outertext")
                                  msgbox xx

linna.zhou

嗯，这个是个不错的法子。