QTP测试CodeJock Xtreme Suite控件.pdf

QTP 测试CodeJock Xtreme Suite 控件 CodeJock Xtreme Suite 是VB 编程中经常使用的类库，但是在使用QTP 进行测试时往往碰到 很多对象识别和控制的问题。 DatePicker 使用QTP 录制DatePicker 控件得到如下脚本： 录制的脚本 VbWindow(frmMain).Activate 选择一个日期 VbWindow(frmMain).ActiveX(Xtreme DatePicker Control).WinObject(XTPDatePicker).Click 361,91 选择日期范围 VbWindow(frmMain).ActiveX(Xtreme DatePicker Control).WinObject(XTPDatePicker).Drag 526,80 VbWindow(frmMain).ActiveX(Xtreme DatePicker Control).WinObject(XTPDatePicker).Drop 526,98 对DatePicker 封装常用操作函数并用RegisterUserFunc 函数注册到ActiveX 测试对象中： 获取选定的单个日期 Function Xtreme_DataPicker_GetSelectedDate(obj) Xtreme_DataPicker_GetSelectedDate = obj.Object.Selection.Blocks(0).DateBegin End Function RegisterUserFunc ActiveX,Xtreme_DataPicker_GetSelectedDate,Xtreme_DataPicker_GetSelectedDate 获取开始日期 Function Xtreme_DataPicker_StartDate(obj) Xtreme_DataPicker_StartDate = obj.Object.Selection.Blocks(0).DateBegin 只考虑了一个范 围的情况 End Function RegisterUserFunc ActiveX,Xtreme_DataPicker_StartDate,Xtreme_DataPicker_StartDate 获取结束日期 Function Xtreme_DataPicker_EndDate(obj) Xtreme_DataPicker_EndDate = obj.Object.Selection.Blocks(0).DateEnd 只考虑了一个范围 的情况 End Function RegisterUserFunc ActiveX,Xtreme_DataPicker_EndDate,Xtreme_DataPicker_EndDate 选定一个指定的日期 Function Xtreme_DataPicker_SelectDate(obj,sDate) 选之前先把已经选择的日期清空 obj.Object.ClearSelection obj.Object.Select sDate End Function RegisterUserFunc ActiveX,Xtreme_DataPicker_SelectDate,Xtreme_DataPicker_SelectDate 选定一个日期范围 Function Xtreme_DataPicker_SelectDateRange(obj,sStartDate,sEndDate) obj.Object.SelectRange sStartDate,sEndDate obj.Object.RedrawControl End Function RegisterUserFunc ActiveX,Xtreme_DataPicker_SelectDateRange,Xtreme_DataPicker_SelectDateRange 下面是一些使用的例子： VbWindow(frmMain).Activate Set oXtremeDataPicker = VbWindow(frmMain).ActiveX(Xtreme DatePicker Control) Msgbox oXtremeDataPicker.Xtreme_DataPicker_Ge