QuickTestPro 创建Class

pcl2004_27 · 发表于 2005-11-27 13:53:53

Qtp中创建Class，利用Class关键字就可以创建Class

Class Calc

Function Add(b,c)
a = b + c
Add = a
End Function

Function Sub(b,c)
a = b - c
Sub = a
End Function

Function Mult(b,c)
a = b * c
Mult = a
End Function

Function Div(b,c)
a = b / c
Div = a
End Function

End Class

Set X = New calc

MsgBox X.Add(2,3)
MsgBox X.Sub(2,3)
MsgBox X.Mult(2,3)
MsgBox X.Div(2,3)