vbs class

' 创建一个名为className的类
Class className

 ' 构造函数
    Private Sub Class_Initialize
   MsgBox "一个类实例被创建"
    End Sub

 ' 析构函数
    Private Sub Class_Terminate
   MsgBox "析构类实例"
    End Sub

 ' 成员变量
    Public m_varValue

 ' 获取成员变量的值
    Public Property Get varValue
        varValue = m_varValue
    End Property

 ' 设置成员变量的值
    Public Property Let varValue(newValue)
        m_varValue = newValue
    End Property 

 ' 过程
    Sub sub_test(s)
        MsgBox s
    End Sub

    ' 函数
    Function fun_test(f)
        MsgBox f
    End Function

End Class

'  -  -  - test the class -  -  -  -  -

Set newClass = New className
newClass.m_varValue = "this is a varValue"
MsgBox newClass.m_varValue
newClass.sub_test("this is a test of the sub")
newClass.fun_test("this is a test of the funtion")

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值