注:本文最早发表在《51测试天地》第九期
第二种检查Tab顺序的方法
前面介绍的检查TAB顺序的方法是通过模拟用户按下TAB键,然后检查控件的Focused属性来判断是否正确地跳转,而接下来要介绍的方法是通过读取控件的“TabIndex”属性来判断控件是否处于正确的TAB顺序的位置中。
我们首先查看一下VB程序的界面设计器中的属性窗口,如图7所示。
图7 VB程序的界面设计器中的属性窗口
可以看到ComboBox控件的属性中有一个名为TabIndex的属性,该属性用于设置或返回控件的Tab键顺序。如果能把这个属性值用起来,则可以在运行时直接取到这个值与预期的TAB顺序值进行比较,从而判断界面控件的TAB顺序设置是否正确。
而在QTP中使用Object Spy可以查看到相同的属性值,如图8所示。这样就意味着可以在脚本中访问和获取该属性值,用于判断控件TAB顺序的设置是否正确。
图8 用Object Spy查看TabIndex属性值
因此第二种检查TAB顺序正确性的脚本可以按以下方式编写:
' 创建Dictionary对象
Set Dic = CreateObject("Scripting.Dictionary")
' 添加Dictionary的key和value,把顺序号作为Key、控件对象作为Value
Dic.Add "0" , vbWindow("Form1").VbComboBox("Combo1")
Dic.Add "1" , vbWindow("Form1").VbEdit("Text1")
Dic.Add "2" , vbWindow("Form1").VbCheckBox("Check1")
Dic.Add "3" ,vbWindow("Form1").VbButton("Cancel")
Dic.Add "4" , vbWindow("Form1").VbButton("OK")
' 定位到Form1窗口
vbWindow("Form1").Activate
For I=0 To Dic.Count
If CheckTabIndex(Dic.Item(CStr(I)) , I ) = False Then
' 如果检查到TabIndex属性值与预期值不一致,则退出循环
Exit For
End If
Next
' 检查控件的TabIndex属性
Public Function CheckTabIndex(TestObject,TabIndexNum)
If TestObject.CheckProperty("TabIndex" ,TabIndexNum , 2) Then
CheckTabIndex = True
Else
CheckTabIndex = False
Reporter.ReportEvent micFail,"CheckTabIndex" , "控件的Tab顺序号与预期值不一致!"
End IF
End Function
该脚本实现了对如图9所示的界面的TAB顺序正确性的检查。
图9 需要检查TAB顺序的程序界面
该脚本的运行结果如图10所示。
图10 运行结果
在检查控件的TabIndex属性时仍然使用的是CheckProperty函数,实际上也可以通过Object属性来访问TabIndex属性,可把CheckTabIndex函数改成如下所示的脚本:
' 检查控件的TabIndex属性,通过Object属性访问TabIndex
Public Function CheckTabIndex2(TestObject,TabIndexNum)
If TestObject.Object.TabIndex=TabIndexNum Then
CheckTabIndex2 = True
Else
CheckTabIndex2 = False
Reporter.ReportEvent micFail,"CheckTabIndex" , TestObject.Object.Name & "控件的Tab顺序号与预期值不一致!"
End IF
End Function
则运行的结果如图11所示。
图11 修改CheckTabIndex函数后的运行结果
可以看到测试结果中少了很多CheckProperty函数所写的Log,我们仅关心控件的TabIndex属性与预期值不一致的情况。