【软件测试自动化-QTP系列讲座 21】 == 单例模式在QTP中的应用 ==

在最近一次VBS系列讲座中的我们已经讲解了单例模式，建议没有学习的朋友先去看下此章的内容之后再来学习本章：

http://blog.csdn.net/zzxxbb112/archive/2009/11/26/4879692.aspx

上一节课程中我们讲解了单例模式在VBS中的应用，这一章我们来讲解下在QTP中的应用，把之前的全局变量更改为环境变量来作为对象实体。调用方法还是和原来的方法一样，代码如下：

Class 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 Goto0
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 Class

总结

单例模式可以帮助我们很好的管理对象的生命周期，使用它能够更好的帮我们集中对象的实体，从而更好的控制对象。后续会讲解更加强大的工厂设计模式来使我们的脚本变得更加强大和健壮。