VBA 枚举无效限定符

Question

我正在编写一些代码来与我公司的在线时间表系统交互。 我想使用枚举或类似的东西来存储网站元素的值，使它们更容易更改或访问。 我尝试使用限定符引用这些枚举中的成员，但收到无效限定符错误消息。 我可以在没有限定符的情况下引用枚举，但这消除了我使用它们的理由。 有没有办法解决这个问题？

'Add initial user
Public Enum FirstUser

    User = 47
    ID = 50
    pass1 = 56
    pass2 = 59
    logBtn = 67
    backbtn = 133
    MenuChanged = 138
    logOut = 141

End Enum

'Delete user
Public Enum delUser

    User = 21
    UserBtn = 43
    Ok = 46
    After = 58

End Enum

Sub mySub()
    dim del as delUser

    msgbox del.User

End Sub

Answer 1

当你定义：

dim del as delUser

...然后del可以采用Enum delUser的值之一，因此它就像一个Integer ——它没有类似结构的数据类型。 所以这个语法——似乎表明del具有成员属性——确实无效：

MsgBox del.User

你可以这样做：

del = delUser.User ' You assign the value 47
MsgBox del

...这将显示 47。

替代数据结构：集合

也许你正在寻找别的东西。 例如，您可以使用Collection ：

Dim del As New Collection

del.Add 47, "User"
del.Add 50, "ID"

MsgBox del("User") ' 47

替代数据结构：类

集合仍然有限制。 您可以查看类，您可以使用这些类来创建具有您需要的所有属性的（用户）对象。

在这里阅读一些例子。

然后您需要创建一个类模块（与您的工作表和工作簿代码分开），为其提供一个名称（比如说“clsUser”），并提供属性。 一个非常简单的可能如下所示：

Private sUserName As String

Property Let UserName(name As String)
    sUserName = name
End Property

Property Get UserName() As String
    UserName = sUserName
End Property

然后在你的原始模块中，你可以这样写：

Dim u As clsUser
Dim u2 As clsUser

Set u = New clsUser()
u.UserName = "Sarah"

Set u2 = New clsUser()
u2.UserName = "John"

MsgBox u.UserName & ", " & u2.UserName

Answer 2

枚举非常有限， dim del as delUser基本上使del成为一个普通的Long类型变量（因此没有属性或方法，因此当您尝试使用点时会出现错误），并向编译器“提示”它应该包含一个值在枚举delUser 。 我说应该是因为没有任何类型检查，唯一真正的好处是声明的清晰性和智能感知支持。

如果您希望User的值从枚举本身读取它： MsgBox delUser.User