51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1470|回复: 0
打印 上一主题 下一主题

[求助] 怎样利用Tab键来检查焦点的位置变化是否正确

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2013-6-26 16:26:47 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
'目的:利用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啊
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-8 18:31 , Processed in 0.063851 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表