• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

QTP中实现函数的重载

发布: 2008-9-08 14:12 | 作者: 网络转载 | 来源: 网络转载 | 查看: 125次 | 进入软件测试论坛讨论

领测软件测试网


大家都知道,在vbs中没有提供函数重载的功能,在很大程度上造成了开发脚本的不方便,其实在QTP中是可以将方法进行重载的,在QTP帮助里有很详细的说明

其实无非就是两个方法:

1、RegisterUserFunc

原型:

RegisterUserFunc TOClass, MethodName, FunctionName, SetAsDefault

TOClass:测试对象

MethodName:需要被重载的方法

FunctionName:封装的函数名

SetAsDefault:是否作为测试对象的标准方法

2、UnRegisterUserFunc

原型:

UnRegisterUserFunc TOClass, MethodName

TOClass:测试对象

MethodName:需要被重载的方法

实例:

对于一个WebEdit的Set方法进行封装并重载

Browser(xx).Page(xx).WebEdit(xx).Set "xxxx"

希望在给这个WebEdit赋值前记录下之前的值,可以使用如下代码

Function MySet (obj, newvalue)
    'obj:测试对象
    'newvalue:赋的新值
       dim oldvalue
       ōldvalue = obj.GetROProperty("value")
       Reporter.ReportEvent micDone, "previous value", oldvalue
       MySet=obj.Set(newvalue)
End Function

然后使用RegisterUserFunc和UnRegisterUserFunc方法:

RegisterUserFunc "WebEdit" , "Set" , "MySet" , False

Browser(xx).Page(xx).WebEdit(xx).Set "xxxx"

UnRegisterUserFunc "WebEdit" , "Set"

或者直接调用

MySet Browser(xx).Page(xx).WebEdit(xx) , "xxxx"

此时,MySet函数实际上是重载了Set方法,并增加了输入旧值的功能

大家可以根据自己的需要来重载QTP的标准方法,在实际运用中有不小的作用

比如:记录下初始值,便于测试后清理环境等

 

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/

TAG: qtp QTP 函数 重载


关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备2023014753号-2
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网