MSFlexGrid

MSFlexGrid 是微软的 ActiveX 表格控件，功能强大，在 VB 编程中经常使用。

 

QTP 录制下来的脚本通常如下所示：

VbWindow("Form1").Activate

VbWindow("Form1").AcxTable("MSFlexGrid").SelectRow 1

VbWindow("Form1").AcxTable("MSFlexGrid").Click 196,23

VbWindow("Form1").VbList("List1").Select "2 - com2"

VbWindow("Form1").AcxTable("MSFlexGrid").SelectRow 2

VbWindow("Form1").AcxTable("MSFlexGrid").Click 120,39

VbWindow("Form1").VbEdit("Text2").Set "100"

VbWindow("Form1").AcxTable("MSFlexGrid").SelectRow 4

VbWindow("Form1").AcxTable("MSFlexGrid").Click 145,69

VbWindow("Form1").VbEdit("Text2").Set "200"

VbWindow("Form1").AcxTable("MSFlexGrid").SelectRow 9

VbWindow("Form1").AcxTable("MSFlexGrid").Click 151,141

VbWindow("Form1").VbList("List1").Select "True"

VbWindow("Form1").VbButton(" 确定 ").Click

 

这样的脚本不仅冗长，而且与坐标值相关，因此难以维护，代码的重用性也不高。适当封装一下，则可以下面的更为优雅的方式来编写测试脚本：

VbWindow("Form1").AcxTable("MSFlexGrid").MSFlexGrid_SetValue "Settings",123

Msgbox VbWindow("Form1").AcxTable("MSFlexGrid").MSFlexGrid_GetValue("Settings")

 

只要适当研究一下 MSFlexGrid 控件的属性和方法，再加上 QTP 的 RegisterUserFunc 函数的使用即可完成封装。实现代码如下：

Function MSFlexGrid_GetValue( obj, PropertyName )

       For i =1 to obj.RowCount    

              If obj.Object.TextMatrix(i,0) = PropertyName Then

                     PropertyValue = obj.GetCellData(i,1)

                     Exit For

              End If

       Next

       MSFlexGrid_GetValue = PropertyValue

End Function

RegisterUserFunc "AcxTable","MSFlexGrid_GetValue","MSFlexGrid_GetValue"

 

Function MSFlexGrid_SetValue( obj, PropertyName, PropertyValue )

       For i =1 to obj.RowCount    

              If obj.Object.TextMatrix(i,0) = PropertyName Then

                     PropertyValue = obj.SetCellData(i,1,PropertyValue)

                     Exit For

              End If

       Next

End Function

RegisterUserFunc "AcxTable","MSFlexGrid_SetValue","MSFlexGrid_SetValue"

 

 

自动化测试项目中的两大类难题是：

1 、测试脚本开发的管理问题

2 、测试脚本开发的技术问题

第一类难题主要通过采用各种脚本框架来解决，例如模块结构化框架、数据驱动框架、关键字驱动框架等。而第二类难题则主要靠自动化测试工程师通过开发 QtestWare 这样的测试对象级的框架来解决。