嵌套 VB (VBA) 枚举

Question

好吧，伙计们，我想实现嵌套枚举的效果，以便轻松对一些常量字符串进行分组。像下面的伪代码一样：

Enum gKS
    Colby = "Hello"
    Hays = "World"
end Enum

Enum gMA
    Dodge = "Seven"
    Muscatine = "Ports"
end Enum

Enum gCountry
    north as gMA
    south as gKS
end Enum

Public USA as gCountry

所以下面的代码应该输出“七”消息：

sub dol()
    msgbox USA.north.Dodge
end sub

我不想使用类型或类，因为不需要初始化，因为所有值都是已知的（正如我所说的常量） ）。

有什么建议吗？

谢谢。

Answer 1

上课是解决这个问题的方法。枚举只是长值，需要有限的选择。如果您需要这些对象具有其他功能/子功能，这将为您的对象提供最大的灵活性。

这是一个简单的布局：

gCountry 类：

Public North As gMA
Public South As gKS

Private Sub Class_Initialize()
    Set North = New gMA
    Set South = New gKS
End Sub

gKS 类：

Public Property Get Colby() As String
    Colby = "Hello"
End Property

Public Property Get Hays() As String
    Hays = "World"
End Property

gMA 类：

Public Property Get Dodge() As String
    Dodge = "Seven"
End Property

Public Property Get Muscatine() As String
    Muscatine = "Ports"
End Property

测试它：

Public Sub TestIt()

    Dim USA As New gCountry

    MsgBox USA.North.Dodge
End Sub

Answer 2

我不相信您能够按照您希望的方式执行嵌入式枚举，因为枚举在 CLR 中被视为基元（来源）。您也可以尝试在整数中嵌入整数。

我知道您说过您不想使用类，但静态类就是为了填补 .NET 世界的这种情况。无需初始化即可轻松、任意地访问它，并且编译时速度很快。 此页面提供有关静态的详细信息如果您不熟悉它们。您应该能够做任何您需要做的事情，以便在该类中按照您想要的方式设置信息，无论是多个静态类、哈希表、多维数组还是您拥有的任何内容。

Answer 3

谢谢，

所以。我决定使用类型来解决这个问题：

    Public Type fCAOCC
        itRGI As String
        ...
    End Type
    Public Type fCAOBF
        itRGI As String
        ibEnviar As String
        ...
    End Type
    Public Type gTELAS
        CAOBF As fCAOBF
        CAOCC As fCAOCC
        ...
    End Type

    Public CSI As gTELAS

    Sub iniGLOBALS()
        CSI.CAOBF.itRGI = "DIVNRRGILIG"
        CSI.CAOBF.ibEnviar = "DUMMYNAME1"
        CSI.CAOCC.itRGI = "Hello"
...
    End Sub

这已准备好供以后在代码中使用...

cya