【QTP系列讲座 21】 == 单例模式在QTP中的应用 ==

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

51Testing软件测试网ys y"jJs#caz

作者：zzxxbb112
时间：2009/11/30 版权所有，侵权必究。51Testing软件测试网4T-N1R2[.H:~ae*m

出处：http://blog.csdn.net/zzxxbb11251Testing软件测试网s4c t%SfxR

在最近一次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 Class51Testing软件测试网|)P'C9X/J!@`x
Y3x;H
a

总结

    单例模式可以帮助我们很好的管理对象的生命周期，使用它能够更好的帮我们集中对象的实体，从而更好的控制对象。后续会讲解更加强大的工厂设计模式来使我们的脚本变得更加强大和健壮。51Testing软件测试网/OH?2\G7|x%D