QTP11.5/UFT快速入门-焦点

一、什么是焦点:

焦点说白了就是你打开某一个程序时默认的focuse

比如我们那QTP自带的windows下的示例程序来说,启动它后焦点自动落在了agent name文本框上

二、利用Tab键检查焦点:

可以利用键盘上的Tab键来设置焦点的位置;

以示例程序来说,焦点开始在agent name上,按一下Tab,则跳到了pawword上在按一下Tab则到了OK上

三、下面我们写代码来验证一下:

'Dialog("Login").WinEdit("Agent Name:").Set "Mercury"
'Dialog("Login").WinEdit("Password:").SetSecure                                              "5456e5ada0731880d740ab67603518591e1d3520"
'Dialog("Login").WinButton("OK").Click
'Window("Flight Reservation").Close

'检查控件的focused属性的函数

Public Function CheckFocus(TestObject)
    If TestObject.CheckProperty("focused","false",2) Then
    CheckFocus=True
    else
    CheckFocus=false
    End If
End Function

'tab按键的键值
Const VK_TAB=15
'创建DeviceRepaly对象
Set DeviceReplay=CreateObject("Mercury.DeviceReplay")
'创建Dictionary对象
Set dic=CreateObject("Scripting.Dictionary")

'添加Dictionary的key和valuse,把顺序作为key,控件对象作为value
dic.add"1",Dialog("Login").WinEdit("Agent Name:")
dic.add"2",Dialog("Login").WinEdit("Password:")
dic.add"3",dialog("Login").WinButton("OK")

'定位到程序窗口,并判断窗口中的默认焦点是否在正确的位置
Dialog("Login").Activate
CheckFocus(dic.item("1"))

For i = 2 To dic.count
  DeviceReplay.PressKey VK_TAB
  If CheckFocus(dic.item((CStr(i)))) Then
      Exit for
  'Else
   'msgbox"焦点正确"
  End If
Next

 

调试报错:

(1)对象不存在

QTP11.5/UFT快速入门-焦点

(2)解决方法:

增加对象:Resources - Object Respository Manager - Object - Add object

QTP11.5/UFT快速入门-焦点

对象导入到Toolbox中

QTP11.5/UFT快速入门-焦点

继续阅读
  • 我们QQ群
  • QQ扫一扫
  • weinxin
  • 微信公众号
  • 公众号扫一扫
  • weinxin
TestWhite
  • 本文由 发表于 2018年4月23日11:17:05
  • 请您在转载时请务必保留本文链接:https://www.playezu.com/11112.html
QTP11.5/UFT快速入门-运行原理 QTP

QTP11.5/UFT快速入门-运行原理

QTP是基于GUI界面的自动化测试工具,用于系统的功能测试。 1、 QTP录制的是鼠标和键盘的消息。QTP录制回放时基于windows操作系统的消息机制。QTP在录制时监听应用程序的消息,监...
QTP11.5/UFT快速入门-四种录制方式 QTP

QTP11.5/UFT快速入门-四种录制方式

正常录制模式Standard Windows recording :默认的录制模式。 模拟录制模式Analog Recording:此模式录制所有键盘和鼠标的精确操作,模拟录制模式录...
QTP11.5/UFT快速入门-检查点 QTP

QTP11.5/UFT快速入门-检查点

(注:以下包含实际项目为qtp自带测试飞行系统为例) 一、检查点定义 将特定属性的当前数据与期望数据进行比较的检查点,用于判定被测试程序功能是否正确CheckPoint可以分两类:...
QTP11.5/UFT快速入门 QTP

QTP11.5/UFT快速入门

准备工作:   1、安装后打开QTP,勾选Web add-in,进入QTP后File-New-Test。   2、选择File菜单下New-Test。 选...
匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: