用户体验测试的自动化实现 - 第二种检查Tab顺序的方法

  注：本文最早发表在《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属性与预期值不一致的情况。