QTP中如何使用Class(类)
VB是面向对象的,其中Class(类)是一个“模板”,对象是由它而创建的。类中的代码描述了从该类创建的对象的特性 (attribute) 和行为。 Call Test Class Tester Dim mvarTesterName,mvarAge,mvarGender Sub Class_Initialize '构造函数 MsgBox "接下来,大家欢迎新同事的到来!" End Sub Sub Class_Terminate '析构函数 If mvarGender Then MsgBox "很遗憾," & mvarTesterName & "先生脱离了测试行业!" Else MsgBox "很遗憾," & mvarTesterName & "女士脱离了测试行业!" End If End Sub Sub Test(ByVal ProjectName) MsgBox mvarTesterName & "正在加班加点的测试" & ProjectName & "呢!" End Sub Sub Eat(ByVal food) MsgBox mvarTesterName & "正在吃" & food & "呢,好爽啊!" End Sub Property Let Gender(ByVal vData) mvarGender = vData End Property Property Get Gender() Gender = mvarGender End Property Property Let Age(ByVal vData) mvarAge = vData End Property Property Get Age() Age = mvarAge End Property Property Let TesterName(ByVal vData) mvarTesterName = vData End Property Property Get TesterName() TesterName = mvarTesterName End Property End Class
Sub Test() Set sb = New Tester '创建一个对象,对象名叫somebody,它是由Tester创建出来的 sb.TesterName = "songfun" sb.Age = 29 sb.Gender = True sb.Eat "HagenDaz" sb.Test "手机" If sb.Gender Then MsgBox sb.TesterName & "先生年方" & sb.Age Else MsgBox sb.TesterName & "女士芳龄" & sb.Age End If Set sb = Nothing End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
- 函数命名规则及调用约定(__cdecl,__stdcall,__fastcall)
- [Lintcode]7. Serialize and Deserialize Binary Tree/[Lee
- delphi – 是否有可用于SECS / GEM协议的库?
- 236. Lowest Common Ancestor of a Binary Tree
- Delphi连接Access数据库图文教程(1)
- 快速掌握Lua 5.3 —— userdata (2)
- 大数问题,两大数相乘 +方法1
- 在Delphi 7中获取对象的分配地址
- Lua C api:如何加载定义为模块的lua文件?
- Delphi:不兼容的类型:’整数’和’扩展’