51Testing软件测试论坛

标题: GetTextLocation —— 依据文本值动态获取坐标进行点击、拖拽操作 [打印本页]
作者: hsjzfling    时间: 2009-8-20 11:28
标题: GetTextLocation —— 依据文本值动态获取坐标进行点击、拖拽操作
在实际工作中我们经常会遇到对一些不能被捕获的对象进行点击、拖拽操作，直接去录制可能得到的就是Object.Click xxx,yyy ，这样的代码健壮性和可维护性都非常的差。
如果需要被操作的位置上有相对唯一的文本值，那么就可以考虑使用GetTextLocation方法来辅助我们来动态定位到预期的坐标，这样就不会因为界面位置一点点的变动导致脚本运行失败了。

先在帮助文档中查找GetTextLocation方法看看，我们会惊奇的发现几乎所有的对象都能支持该方法，这就使得该方法的应用范围会比较广，帮助文档中的描述如下：
Syntaxobject.GetTextLocation (TextToFind, Left, Top, Right, Bottom, [MatchWholeWordOnly])


Syntax Details
ArgumentDescription
TextToFindRequired. A String value. The text string you want to locate.
LeftRequired. A Variant value. The left coordinate of the search area within the window or screen.
TopRequired. A Variant value. The top coordinate of the search area within the window or screen.
RightRequired. A Variant value. The right coordinate of the search area within the window or screen.
BottomRequired. A Variant value. The bottom coordinate of the search area within the window or screen.
Note: Set the Left, Top, Right, and Bottom coordinates to -1 to search for the text string within the object’s entire window.
MatchWholeWordOnlyOptional. A Boolean value. If True, the method searches for occurrences that are whole words only and not part of a larger word. If False, the method does not restrict the results to occurrences that are whole words only. Default value = True


下面我们来看一个运用GetTextLocation的实例

先简单的描述下需求，现在需要点击自定义的菜单栏上的"Generate Report"按钮，但按钮控件不能被捕获，只能识别到整个菜单栏对象为VbWindow("Window").WinObject("Menu")，点击按钮的代码如下：

  2. '获取"Generate Report"文本在WinObject("Menu")中的坐标范围，并返回给L(left),T(top),R(right),B(bottom)
  3. VbWindow("Window").WinObject("Menu").GetTextLocation strText,L,T,R,B,True
  4. '点击该文本所在坐标区域的正中心位置
  5. VbWindow("Window").WinObject("Menu").Click (L+R)/2, (T+B)/2
复制代码


为了便于使用，我们也可以进行简单的封装，例如：

  2. Function  ClickText(objOB, strText)
  3.    If objOB.Exist(1) Then
  4.      objOB.GetTextLocation strText,L,T,R,B,True
  5.      objOB.Click (L+R)/2, (T+B)/2
  6.    Else
  7.      Reporter.ReportEvent micFail , "Can not find the specified object!", ""
  8.    End If
  9. End Function

  11. ClickText VbWindow("Window").WinObject("Menu"),"Generate Report"
复制代码


进行拖拽操作也是一样的，通过GetTextLocation方法来获取文本中心位置坐标，动态的做为Drag和Drop的参数，这样就能比较精确的完成拖拽操作。
下面也举个简单的例子吧

  2. Sub MoveItemByText(objFrom,strFrom,objTo,strTo)
  3. Dim l,r,t,b,l1,r1,t1,b1
  4. 'Drag Item by specified text
  5. objFrom.GetTextLocation strFrom, l, t, r, b
  6. objFrom.Drag (l+r)/2, (t+b)/2, 1

  8. ' Drop Item on specified text
  9. objTo.GetTextLocation strTo, l1, t1, r1, b1
  10. objTo.Drop (l1+r1)/2, (t1+b1)/2, 1
  11. End Sub
  12. '将hsjzfling从Names列表中拖拽到Result列表的Champion子列表中
  13. Set objAct = VbWindow("frmOvertime").ActiveX("ActiveX").ActiveX("ActiveX").ActiveX("ActiveX")
  14. MoveItemByText objAct.VbTreeView("Names"), "hsjzfling", objAct.VbTreeView("Result"), "Champion"
复制代码
作者: heqingbluesky    时间: 2009-9-1 14:49
用第三方控件开发的Menu都有这个问题，目前没有很好的解决办法。
我们的解决办法之一:
用快捷键代替Menu的点击，例如：推出程序：ALT＋F4
作者: onlonely    时间: 2009-9-2 18:57
这个方法也只是封装了的Getroproperty 类似功能而已

并且,对于那些没有显示出来的对象就无效了.
比如有个按钮,需要先拖动窗口才会出现的,这样的按钮,取得的坐标是无法通过click方法点击的.
作者: hsjzfling    时间: 2009-9-8 18:18
标题: 回复 3# 的帖子
这样的问题我也遇到过，其中之一的解决方法是：
先判断当前界面是否能找到文本，找不到就控制滚动条翻一页，依次循环直到找到文本或者滚动条已经到最底部。



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2