QTP中使用自定义vbs类

发表于:2014-1-17 11:12

字体: | 上一篇 | 下一篇 | 我要投稿

 作者:erix1991    来源:51Testing软件测网试采编

  3.我们知道创建一个类的实例方法是通过以下方式来进行的
  Set 实例名 = New 类名
  此时如果直接在QTP中进行创建类的话会直接报错:
  Set eom  = new ExcelClass
  eom.t1
  4.那么对于以上这种情况,我们一般所采用的方式是在函数库中建立一个函数,让此函数返回这个类的实例化。
Class ExcelClass
Sub t1()
MsgBox "t1"
End Sub
Sub t2()
MsgBox "t2"
End Sub
End Class
'定义ExcelClass的无参构造
Function NewExcelClass
Set NewExcelClass = new ExcelClass
End Function
  5. 接着在QTP脚本编辑区中直接把这个函数返回就可以使用了
Set eom  = NewExcelClass
eom.t1
  思考:
  是否可以按照如图所示的方式把New ExcelClass作为函数名进行编写呢,这样我们就可以直接在QTP脚本区中进行new一个类出来,是不是更加直观呢,这一块我们会留到下一讲进行讲解。
  总结:
  这一讲内容比较基础,主要还是为了照顾一些新人,下一讲我们会继续深入讲解类构造器,主要会涉及到带参构造器的设计模式,请大家期待。
22/2<12
《2023软件测试行业现状调查报告》独家发布~

关注51Testing

联系我们

快捷面板 站点地图 联系我们 广告服务 关于我们 站长统计 发展历程

法律顾问:上海兰迪律师事务所 项棋律师
版权所有 上海博为峰软件技术股份有限公司 Copyright©51testing.com 2003-2024
投诉及意见反馈:webmaster@51testing.com; 业务联系:service@51testing.com 021-64471599-8017

沪ICP备05003035号

沪公网安备 31010102002173号