|
'目的:利用Tab键来检查焦点的位置变化是否正确
'查控件的focused属性的函数
Public function CheckFocus(TestObject)
If TestObject.CheckProperty("focused","True",2) Then
CheckFocus=True
else
CheckFocus=false
End If
End Function
'Tab按键的键值
Const VK_TAB=15
'创建Dictionary对象
Set dic=CreateObject("Scripting.Dictionary")
'添加Dictionary的key和value,把顺序号作为key,控件对象作为value
dic.Add"1",dialog("登录").WinEdit("代理名称:")
dic.Add"2",dialog("登录").WinEdit("密码:")
dic.Add"3",dialog("登录").WinButton("确定")
'定位到程序窗口,并判断窗口中的默认焦点是否在正确的位置
Dialog("登录").Activate
CheckFocus(dic.Item("1"))
For i=2 to dic.Count
DeviceReplay.PressKey VK_TAB
If CheckFocus(dic.Item(cstr(i)))=False Then
Exit for
else
msgbox"焦点正确"
End If
Next
为什么QTP提示找不到对象DeviceReplay,怎样调用tab啊 |
|