QTP系列讲座 52】== VBS类的伪构造器模式设计(一) ==

出处：

有一段时间没上博客了，不过博客还是不能拖呢，每每在我快要放弃的时候总会有许多网友在告诉我该更新了，，我们等着你的讲座，虽然讲座写到后来已经有些疲倦，但有了你们的支持，我还会一直继续，讲座还会一直继续。

进入正题，今天要讲的内容与VBS类关联比较密切，在看本次讲座之前建议大家首先熟悉一下类的组成, 这样对于学习本次讲座内容会比较轻松。如果平时在自动化测试过程中经常使用类的朋友应该会清楚，在Resources中引用带有类的vbs函数库之后，是不可以直接在QTP脚本编辑器中直接进行类的初始化的。具体我们来看下例子。

1.首先我们编写一个vbs函数库，脚本如下：

Class ExcelClassSub t1()MsgBox "t1"End SubSub t2()MsgBox "t2"End SubEnd Class

2.在QTP的File –> Settings –> Resources中引用此函数库

3.我们知道创建一个类的实例方法是通过以下方式来进行的

Set 实例名 = New 类名

此时如果直接在QTP中进行创建类的话会直接报错：

Set eom = new ExcelClasseom.t1

4.那么对于以上这种情况，我们一般所采用的方式是在函数库中建立一个函数，让此函数返回这个类的实例化。

Class ExcelClassSub t1()MsgBox "t1"End SubSub t2()MsgBox "t2"End SubEnd Class’定义ExcelClass的无参构造Function NewExcelClass Set NewExcelClass = new ExcelClassEnd Function5. 接着在QTP脚本编辑区中直接把这个函数返回就可以使用了Set eom = NewExcelClasseom.t1

那么前世我的目光一定一刻都没从你身上离开过吧！

相关文章：

你感兴趣的文章：

标签云：