自动化测试专家,专注于自动化测试领域的框架开发及国外最新自动化技术,担任过银行、电子商务等项目的自动化测试工作,精通自动化测试工具QTP、Watir等.并对QTP有过深入的研究,有过企业内训和工具培训经验,希望能与各位同行一起沟通,交流,探讨。 zzxxbb112@hotmail.com
【QTP系列讲座 21】 == 单例模式在QTP中的应用 ==
上一篇 /
下一篇 2011-10-31 16:52:59
/ 个人分类:QTP系列讲座
Rss订阅IQuickTest(关于如何订阅?)
*c6e{T4^CL`
F}0GoogleReader订阅地址: http://feeds.feedburner.com/iquicktest
51Testing软件测试网ys y"jJs#caz
作者:zzxxbb112
时间:2009/11/30 版权所有,侵权必究。51Testing软件测试网4T-N1R2[.H:~ae*m
出处:http://blog.csdn.net/zzxxbb11251Testing软件测试网s4c t%SfxR
在最近一次VBS系列讲座中的我们已经讲解了单例模式,建议没有学习的朋友先去看下此章的内容之后再来学习本章:
.X"Rdm^K#mp0http://blog.csdn.net/zzxxbb112/archive/2009/11/26/4879692.aspx
2uqO
t9h$V0上一节课程中我们讲解了单例模式在VBS中的应用,这一章我们来讲解下在QTP中的应用,把之前的全局变量更改为环境变量来作为对象实体。调用方法还是和原来的方法一样,代码如下:
7K9n6nTA(f3g9m-H0Class ExcelWrapper
Private oExcelObject
Private Sub Class_Initialize
Dim bAleadyInit '判断对象是否存在的标志位
On Error Resume Next
bAlreadyInit = IsObject(Environment("Excel_Object"))
If Err.Number <> 0 Then bAlreadyInit = False '检查对象是否已经被初始化
On Error Goto 0
If bAlreadyInit = True Then
If Environment("Excel_Object") is Nothing Then bAlreadyInit = False
End If
If bAlreadyInit = False Then
Environment("Excel_Object") = CreateObject("Excel.Application")
End If
Set oExcelObject = Environment("Excel_Object")
End Sub
Private Sub Class_Terminate
oExcelObject.Quit
Set oExcelObject = Nothing
End Sub
Public Sub Open(sFileName)
'写入打开文件的代码
End Sub
Public Function GetSheetData(sSheet)
'写如读取单元格的代码
End Sub
'********等等,可以写更多方法*******
End Class51Testing软件测试网|)P'C9X/J!@`xY3x;Ha
总结
t-I??&}B9e(t0 单例模式可以帮助我们很好的管理对象的生命周期,使用它能够更好的帮我们集中对象的实体,从而更好的控制对象。后续会讲解更加强大的工厂设计模式来使我们的脚本变得更加强大和健壮。
51Testing软件测试网/OH?2\G7|x%D
收藏
举报
TAG:
iquicktest
QTP
qtp