类模块的使用方法

1. 类模块的创建

1.1 类模块的属性

• Instancing:

1.2 类模块的初步创建

• 首先在vba中创建一个类模块

Dim 属性变量声明,... ...

'以下是给类添加属性'
Property Let 属性 (形参)
	属性变量 = 形参
End Property

'以下是获得类属性'
Property Get 属性 (形参) as 数据类型
	属性 = 属性变量
End Property

通过以上的代码我们可以定义一个类模块，并且可以进行属性的赋值与提取。

1.2 示例

假如我们有一个Student类，这个类中有Name和Age2个属性。并且可以对年龄可以进行+1的操作。在类模块中，定义类的代码如下：

Option Explicit
'声明类的私有属性'
Private Sname As String, SAge As Integer

'给类定义一个Name的属性'
Property Let Name(strName As String)
    Sname = strName
End Property

'类的name属性可以被提取'
Property Get Name() As String
    Name = Sname
End Property

'给类定义一个Age的属性'
Property Let Age(intAge As Integer)
    SAge = intAge
End Property

'使类的Age属性可以被提取'
Property Get Age() As Integer
    Age = SAge
End Property

'给类定义一个年龄增加的方法'
Public Sub AddAge()
    SAge = SAge + 1
End Sub

类定义好了，随后我们在模块中，我们将类声明为一个对象，并进行相关的操作

Sub demo()
	'声明一个新的student对象，对象叫liming'
	Dim liming As New Student
	'给这个对象的属性进行赋值'
    liming.Name = "liming"
    Debug.Print liming.Name
    liming.Age = 18
    '使用对象年龄增加的方法'
    liming.AddAge
    Debug.Print (liming.Age)
End Sub