Question

VB怎么使用枚举数据类型？

VB怎么使用枚举数据类型？
按照书上的列举了week的数据，但没用啊？
这怎么用啊？

Answer 1

先举一个例子：
Public Enum TestEnum
OneEnum = 0 '"One"
TwoEnum = 1
'"Two"
ThreeEnum = 2 ' "Three"
End Enum

Sub test(b As TestEnum, a As String)
If b = OneEnum
Then
MsgBox "One" & "," & a
ElseIf b =
TwoEnum Then
MsgBox "Two" & "," & a

ElseIf b = ThreeEnum Then
MsgBox "Three" & "," &
a
End If
End Sub

Sub testRun()
test TwoEnum, "This is a Enum Test"
End Sub

说明如下：
enum语句
定义枚举类型。
语法
[Public | Private] Enum name
membername [=
constantexpression]
membername [= constantexpression]
. . .
End
Enum

Enum 语句包含下面部分：
部分 描述
Public 可选的。表示该 Enum 类型在整个工程中都是可见的。Enum 类型的缺省情况是
Public。
Private 可选的。表示该 Enum 类型只在所声明的模块中是可见的。
name 必需的。该 Enum 类型的名称。name
必须是一个合法的 Visual Basic 标识符，在定义该 Enum 类型的变量或参数时用该名称来指定类型。
membername 必需的。用于指定该
Enum 类型的组成元素名称的合法 Visual Basic 标识符。
constantexpression 可选的。元素的值（为 Long
类型）。可以是别的 Enum 类型。如果没有指定 constantexpression，则所赋给的值或者是 0（如果该元素是第一个
membername），或者比其直接前驱的值大 1。

说明
所谓枚举变量，就是指用 Enum 类型定义的变量。变量和参数都可以定义为 Enum 类型。Enum 类型中的元素被初始化为 Enum
语句中指定的常数值。所赋给的值可以包括正数和负数，且在运行时不能改变。例如：
Enum SecurityLevel

IllegalEntry = -1
SecurityLevel1 = 0

SecurityLevel2 = 1
End Enum
Enum 语句只能在模块级别中出现。定义 Enum
类型后，就可以用它来定义变量，参数或返回该类型的过程。不能用模块名来限定 Enum 类型。
类模块中的
Public Enum 类型并不是该类的成员；只不过它们也被写入到类型库中。在标准模块中定义的 Enum
类型则不写到类型库中。具有相同名字的 Public Enum 类型不能既在标准模块中定义，又在类模块中定义，因为它们共享相同的命名空间。若不同的类型库中有两个
Enum类型的名字相同，但成员不同，则对这种类型的变量的引用，将取决于哪一个类型库具有更高的引用优先级。
不能在 With 块中使用 Enum
类型作为目标。

Answer 2

Private Enum Weeks
Sun = 0
Mon = 1
Tue = 2
Wed = 3
Thu = 4
Fri = 5
Sat = 6
End Enum

Private Sub Command1_Click()
Dim a As Weeks
a = Fri '这里就将a的值变为5了
Print a '输出5
End Sub