VBA 类模块系列之四——创建你的第一个类

前三篇终于啰嗦完了，牛逼也吹完了，我们现在来创建一个类。

1. 首先在VBE里面，选择插入菜单-类模块，一个空白的类模块就创建好了。

2. 接下来，要想一下，我们用这个类来干嘛用？还没想好去哪里，我就出门了，哈哈。这个应该放在第一步。好吧，比方说我们现在要用这个类来为模拟一个人（Person），第二篇里面谈到，类的接口是由属性，方法，事件构成的，那么我们要模拟人的哪些属性，方法，事件呢？

我们先来考虑属性（Properties)

人的属性太多了，姓名，性别，年龄，身高，体重，民族等等。我们弄简单点，只考虑他的姓名（Name）和性别（Gender）。

我们确定了目标，就可以开始行动了。因为我们要用这个类来模拟一个人（Person），那首先我们就将这个类的名字改成Person。这个很简单，在左下角的名称属性里面，将“类1”改为“Person”。然后我们在类中建立姓名和性别这2个属性。

为类创建一个属性，最简单的方法就是在类的头部声明一个公共变量。我们申请2个：

Option Compare Database
Option Explicit

Public Name As String
Public Gender As String

3. 属性添加好了，接下来考虑方法。这个类需要什么方法呢？因为这个类就只有2个属性，姓名和性别，比如某个美女，她叫赵冰冰，你会怎么称呼她呢？这个得看你跟她的关系了。如果你们之间很陌生的话，你会叫她“赵小姐”，如果是在非常正式的场合，你应该叫“赵女士”，如果你想撩她，你会叫她“小姐姐”。我们给这个类添加一个名叫称呼（Speak）的方法。但是根据什么来确定你称呼的方式呢？我们需要再多添加一个确定场合（Situation）的属性，有了这个属性，我们才好确定该用何种方式称呼她。

Option Compare Database
Option Explicit

Public Name As String
Public Gender As String
Public Situation As String

Public Sub Speak()
    Select Case Situation
        Case "一般"
            MsgBox Left(Name, 1) & "小姐"
        Case "正式"
            MsgBox Left(Name, 1) & "女士"
        Case "撩"
            MsgBox "小姐姐"
        Case Else
            MsgBox Name
    End Select
End Sub

我们添加好了如上的代码，我们只分了3种场合，如果不是这3种场合，我们就直接称呼她的姓名好了。

我们的第一个类就这样轻松设计好了。