在最近一次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
总结
单例模式可以帮助我们很好的管理对象的生命周期,使用它能够更好的帮我们集中对象的实体,从而更好的控制对象。后续会讲解更加强大的工厂设计模式来使我们的脚本变得更加强大和健壮。
分享到:
相关推荐
软件测试自动化-QTP系列讲座;详细讲解了QTP的使用,并有论坛可提问
iQuickTest 领先技术研究 作者 zzxxbb112 我把他目前写的52期做了打包总结。
软件测试实验3-QTP初级使用实验报告.docx软件测试实验3-QTP初级使用实验报告.docx软件测试实验3-QTP初级使用实验报告.docx软件测试实验3-QTP初级使用实验报告.docx软件测试实验3-QTP初级使用实验报告.docx软件测试...
当你在回放QTP的时候,你是否有注意过QTP在回放的时候鼠标是没有运动的有些朋友肯定会问,既然是CLICK点击为什么鼠标...鼠标跟踪 Event模式就是我们平时默认用的模式,也就是事件,其实QTP的click方法只是触发了对象的C
当你在回放QTP的时候,你是否有注意过QTP在回放的时候鼠标是没有运动的有些朋友肯定会问,既然是CLICK点击为...-鼠标跟踪 Event模式就是我们平时默认用的模式,也就是事件,其实QTP的click方法只是触发了对象的CLICK
首先介绍一下AutoIt: AutoItv3是用以编写并生成具有BASIC语言风格的脚本程序的免费软件,它被设计用来在WindowsGUI(用户界面)中进行自动操作。通过它可以组合使用模拟键击、鼠标移动和窗口/控件操作等来实现自动化...
第30讲-QTP自动化测试总结 第30讲-QTP自动化测试总结 第30讲-QTP自动化测试总结
软件测试自动化工具QTP学习 关于QTP的原理及使用方法的具体介绍
自动化测试的实践-应用QTP测试框架,自动化,qtp。
1 自动化测试的实践-应用QTP测试框架.pptx
第30篇-QTP自动化测试技术总结第30篇-QTP自动化测试技术总结
第28篇-QTP自动化测试用例设计第28篇-QTP自动化测试用例设计
软件测试自动化工具QTP资料总结 关于QTP的实用总结
1自动化测试的实践-应用QTP测试框架.ppt
QTP是quicktest Professional的简称...自动化测试同时涵盖各种各样的测试种类,常见的有以下几种:功能(黑盒/白盒)自动化测试、性能测试、压力测试、GUI测试、安全性测试,它们都可以由测试自动化技术来代替手工测试
轻量级自动化测试框架-QTP Based.ppt
轻量级自动化测试框架-QTP Based