VBS基础篇 - class

Class 语句：声明一个类的名称，以及组成该类的变量、属性和方法的定义。

Class name '参数name必选项，Class 的名称
    statements '一个或多个语句，定义了 Class 的变量、属性和方法
End Class

初始化与终结化的应用

使用Class语句可以创建一个对象，可以为它编写字段、属性及方法，它只有两个对象事件——Initialize与Terminate。

Class TestClass
    Private Sub Class_Initialize   ' 设置 Initialize 事件，相当于构造函数
        MsgBox("TestClass started")
    End Sub
    Private Sub Class_Terminate   ' 设置 Terminate 事件，相当于析构函数
        MsgBox("TestClass terminated")
    End Sub
End Class

Set X = New TestClass   ' 创建一个 TestClass 实例
Set X = Nothing      ' 删除实例

a.类的事件方法格式是固定的，事件名是固定的，事件只能是Sub不能是Function，事件无参数；
b.类实例通过New来创建，通过Nothing来销毁；
c.记住所有的类实例都是对象，创建与销毁时记得用Set语句，没有Set是错的。

类可以有公有（Public）和私有（Private）字段：
（1）公有的字段可以外部访问，私有的不能：
（2）可以定义数组字段，且此数组字段可以是动态数组

类可以有公有或者私有的属性：
（1）公有的属性可以外部调用，私有的属性不能
（2）用Property Get定义读属性，用Property Set和Property Let来定义写属性
（3）当定义写属性时，如果此属性封装的是对象字段，则此写属性必须是Property Set
（4）属性不必是成对出现，这样就可以造成只读或只写属性，当然Private任意一方也可以造成这种情况

Set MyUser = New User
MyUser.MyAge = "" '设置对象的MyAge属性值
MyUser.Myname = "john" '设置对象的Myname属性值
MyUser.ToString '调用对象的ToString方法

Class User
    Private Str_Name '声明变量Str_Name
    Private Int_Age  '声明变量Int_Age

    'Property Get语句，获取属性值或对象引用，Default只与Public一起使用，表示该属性为类的默认属性
    Public Property Get Myname
        Myname = Str_Name
    End Property  

    Public Property Get MyAge
        MyAge = Int_Age
    End Property

    'Property Let语句，设置属性值
    Public Property Let Myname(New_Name)
        Str_Name = New_Name
    End Property   

    Public Property Let MyAge(New_Age)
        Int_Age = new_age
    End Property  

    '类方法

    Public Sub ToString()
        MsgBox "姓名："+Myname+" 年龄："+MyAge
    End Sub

End Class