[原]【软件测试自动化-QTP系列讲座 52】== VBS类的伪构造器模式设计(一) ==

:}8~lA z$RI0

作者：zzxxbb112
时间：2012/3/6 版权所有，侵权必究。

出处：http://blog.csdn.net/zzxxbb11251Testing软件测试网,n G3K0yd\D\,{Xw

有一段时间没上博客了，不过博客还是不能拖呢，每每在我快要放弃的时候总会有许多网友在告诉我该更新了，我们等着你的讲座，虽然讲座写到后来已经有些疲倦，但有了你们的支持，我还会一直继续，讲座还会一直继续。

'MpDa%g0 进入正题，今天要讲的内容与VBS类关联比较密切，在看本次讲座之前建议大家首先熟悉一下类的组成, 这样对于学习本次讲座内容会比较轻松。如果平时在自动化测试过程中经常使用类的朋友应该会清楚，在Resources中引用带有类的vbs函数库之后，是不可以直接在QTP脚本编辑器中直接进行类的初始化的。具体我们来看下例子。51Testing软件测试网[ X[(m/X(@6Z%G|

51Testing软件测试网R-l/ft.R,{]7os G
51Testing软件测试网ZiC,Qb

,mT1@p.d]01.首先我们编写一个vbs函数库，脚本如下：51Testing软件测试网:USNP2OMiK

Class ExcelClass
	Sub t1()
		MsgBox "t1"
	End Sub
	
	Sub t2()
		MsgBox "t2"
	End Sub
End Class

(E J^+}@;CA02.在QTP的File --> Settings --> Resources中引用此函数库51Testing软件测试网|-C
^W*t

YJ"z \!u Wos ~6ew^,x051Testing软件测试网kM:PW*I8|'I$|
51Testing软件测试网$_|0G-w1Bj A

3.我们知道创建一个类的实例方法是通过以下方式来进行的

t2? I"R7L[0

Set 实例名 = New 类名

U
[H_@`l/u0此时如果直接在QTP中进行创建类的话会直接报错：

Set eom  = new ExcelClass
eom.t1

G1eez&U,v3ch0

VT7gP[%L){5J04.那么对于以上这种情况，我们一般所采用的方式是在函数库中建立一个函数，让此函数返回这个类的实例化。

51Testing软件测试网A8s}%{4N1s*wL0v.w

Class ExcelClass
	Sub t1()
		MsgBox "t1"
	End Sub
	
	Sub t2()
		MsgBox "t2"
	End Sub
	
End Class

'定义ExcelClass的无参构造
Function NewExcelClass
   Set NewExcelClass = new ExcelClass
End Function

*v'g:G}'Ioj
~051Testing软件测试网.s-]U0_V9\:e

51Testing软件测试网g!O.m(P$slq:d

Set eom  = NewExcelClass
eom.t1

&m~%g3jUPV o,\-PR0

:frnt+mP K"L%J/pM$|051Testing软件测试网9Sv0D7Z {Du

思考：

h f
TwaiM0 是否可以按照如图所示的方式把New ExcelClass作为函数名进行编写呢，这样我们就可以直接在QTP脚本区中进行new一个类出来，是不是更加直观呢，这一块我们会留到下一讲进行讲解。

&N s$C \1[ ^ co;J$@051Testing软件测试网7e@k-L8mfyB

7Jh'uB g8Y'] e/{L051Testing软件测试网3@X Pm xe6W$Yju
51Testing软件测试网m1Q3e K ni7}7xK

:z[8P4s,p:f0 这一讲内容比较基础，主要还是为了照顾一些新人，下一讲我们会继续深入讲解类构造器，主要会涉及到带参构造器的设计模式，请大家期待。

S%q }aAknvr051Testing软件测试网b q0t4xM

51Testing软件测试网$d;G@E8cD)x i:uc

如有任何问题请去IquickTest Q&A问题库进行提问51Testing软件测试网m2KF6W.\l {4q
51Testing软件测试网']Z3^8y!In;a F

51Testing软件测试网_{6vA ya

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