作者:zzxxbb112
时间:2012/3/6 版权所有,侵权必究。
出处:http://blog.csdn.net/zzxxbb112
有一段时间没上博客了,不过博客还是不能拖呢,每每在我快要放弃的时候总会有许多网友在告诉我该更新了,我们等着你的讲座,虽然讲座写到后来已经有些疲倦,但有了你们的支持,我还会一直继续,讲座还会一直继续。
进入正题,今天要讲的内容与VBS类关联比较密切,在看本次讲座之前建议大家首先熟悉一下类的组成, 这样对于学习本次讲座内容会比较轻松。如果平时在自动化测试过程中经常使用类的朋友应该会清楚,在Resources中引用带有类的vbs函数库之后,是不可以直接在QTP脚本编辑器中直接进行类的初始化的。具体我们来看下例子。
1.首先我们编写一个vbs函数库,脚本如下:
Class ExcelClass
Sub t1()
MsgBox "t1"
End Sub
Sub t2()
MsgBox "t2"
End Sub
End Class
2.在QTP的File --> Settings --> Resources中引用此函数库
3.我们知道创建一个类的实例方法是通过以下方式来进行的
Set 实例名 = New 类名
此时如果直接在QTP中进行创建类的话会直接报错:
Set eom = new ExcelClass
eom.t1
![](http://hi.csdn.net/attachment/201203/6/0_1331040551ef8F.gif)
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一个类出来,是不是更加直观呢,这一块我们会留到下一讲进行讲解。
这一讲内容比较基础,主要还是为了照顾一些新人,下一讲我们会继续深入讲解类构造器,主要会涉及到带参构造器的设计模式,请大家期待。
如有任何问题请去IquickTest Q&A问题库进行提问
Rss订阅IQuickTest(关于如何订阅?)