今天刚刚读了songfang大虾的《在QTP中如何使用Class(类)》,忽然想到可以用类来解决这个问题嘛,于是立马写了出来试试
比如要建立一个Customer用户,他的许多创建时的参数的不同值会对后面有不同的影响,所以要对众参数中的某一个做一些修改
于是有了以下测试代码
Class AddNew
Dim para1,para2,para3
Sub Class_Initialize
para1 = 1
para2 = 2
para3 = 3
End Sub
Sub setPara1(byval para)
para1 = para
End Sub
Sub setPara2(byval para)
para2 = para
End Sub
Sub DoAdd()
msgbox "para1=[" & para1 & "] para2=[" & para2 & "] para3=[" & para3 & "]"
End Sub
End Class
Set Customer = new AddNew
Customer.DoAdd()
Customer.setPara1(111)
Customer.DoAdd()
Customer.setPara2(222)
Customer.DoAdd()
Set Customer = nothing