Excel VBA - 类中的枚举

Question

我对类模块很陌生。

我知道如何在类中进行枚举， 但是是否也可以引用它的值？

例如：

'Class Module
Public Enum Alphabeth
A = 1
B
C
End enum

假设我为这个类创建了一个名为“Alpha”的实例， 然后我可以以某种方式引用枚举中“C”的值吗？ 像 Alpha.myEnum.C 之类的东西（应该给出“3”的值）。

Answer 1

在类模块中：

Public Enum Alphabet
    a = 1
    b
    c
End Enum

Public Property Get GetEnum(Letter As String) As Long
    Select Case Letter
        Case "a"
            GetEnum = Alphabet.a
        Case "b"
            GetEnum = Alphabet.b
        Case "c"
            GetEnum = Alphabet.c
        ' etc
    End Select
End Property

在常规模块中：

Sub UseEnum()

    Dim Alphabet As clsAlphabet
    Set Alphabet = New clsAlphabet
    
    MsgBox Alphabet.GetEnum("a")

End Sub

编辑： 找到了更好的解决方案： 在类模块中：

Public Enum Alphabet
    a = 1
    b
    c
End Enum

Public Property Get Alphabet(Letter As Alphabet) As Alphabet
    Alphabet = Letter
End Property

在常规模块中：

Sub UseEnum()

    Dim Alphabet As clsAlphabet
    Set Alphabet = New clsAlphabet
    
    MsgBox Alphabet.Alphabet(a)

End Sub

Answer 2

Enum 不是一个类...它是一个语句。

1. 请将Enum 声明复制到标准模块顶部（在声明区域中）：

Public Enum Alphabeth
    A = 1
    b = 2
    c = 3
End Enum

1. 复制同一模块中的下一个Sub 或另一个并运行它：

Sub testEnumAlph()
   Debug.Print Alphabeth.A, Alphabeth.b, Alphabeth.c
End Sub

如果写 Alphabeth，intellisense 会建议 Enum 成员...

它将在即时窗口中返回（Ctrl + G，在 VBE 中）：1 2 3...