zoukankan      html  css  js  c++  java
  • QTP中类的使用(转)

    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
    '****************************************************************

  • 相关阅读:
    ORACLE数据库逐步解决ORA-12541、ORA-01034和ORA-27101、ORA-00119和ORA00132的过程
    Windows下MySQL主从复制的配置
    Windows下Git的使用
    spring boot 2 集成JWT实现api接口认证
    spring boot 2 全局统一返回RESTful风格数据、统一异常处理
    spring boot 2 + shiro 实现权限管理
    Java 密码加盐
    Java中往zip压缩包追加文件
    IntelliJ IDEA 安装、配置和使用Lombok插件
    大规模微服务单元化与高可用设计
  • 原文地址:https://www.cnblogs.com/ellie-test/p/3321916.html
Copyright © 2011-2022 走看看