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

 Rss订阅IQuickTest（关于如何订阅？）

GoogleReader订阅地址： http://feeds.feedburner.com/iquicktest

作者：zzxxbb112
时间：2009/11/30 版权所有，侵权必究。

出处：http://blog.csdn.net/zzxxbb112

在最近一次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 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 Class

总结

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

如有任何问题请去IquickTest Q&A问题库进行提问