作者：杜勇
描述：定义枚举类型。
一、语法：
[Public|Private]Enum Name
Membername[=Constantexpression]
Membername[=Constantexpression]
...
End Enum
Enum语句的语法包含下面部分：
|
部分 |
描述 |
| Public | 可选的。表示该Enum类型是全局的（公用的），在整个工程中都是可见的。Enum类型的缺省情况是Public。 |
| private | 可选的。表示该Enum类型是局部的，只在所声明的模块或窗体中是可见。 |
| Name | 必需的。该Enum类型的名称。Name必须是一个合法的VisualBasic标识符，在定义该Enum类型的变量或参数时用该名称来指定类型。 |
| Membername | 必需的。用于指定该Enum类型的组成元素名称的合法VisualBasic标识符。 |
| Constantexpression | 可选的。元素的值为Long类型，也/可以是别的Enum类型。如果没有指定Constantexpression，则第一个Membername的值为0，其余Membername的值为序列数，后一个总比其前一个的值大1。 |
二、说明：
用Enum类型定义的变量叫枚举变量，枚举变量只能在模块或窗体中定义，其中的元素被初始化为Enum语句中指定的常数值。所赋给的值可以包括正数和负数，且在运行时不能改变。
在编程时，经常遇到一些数据，即不直观也不容易记忆，如果采用枚举变量可以使编程简单化。例如颜色，为六位十六进制数，为了使用方便，VB将常用颜色定义成枚举变量，在各个颜色的英文单词前面冠以vb，用以代替六位十六进制数，红色为vbRed，绿色为vbGreen，蓝色为vbBlue等。
注意：不能在With块中使用Enum类型作为目标。
三、应用举例：
下面的示例显示用Enum语句定义一个颜色常数的集合。建立一标准工程，在窗体上添加两个命令按钮和两个文本框，将下面的程序粘贴过去。
Private Enum MyColors
Color1 = &HFF6347
Color2 = &HFC870E
Color3 = &HF9F400
Color4 = &H9400FA
Color5 = &H8B3EE3
Color6 = &H8B69F0
End Enum
Private Sub Command1_Click()
Text1.BackColor = Color1
Text2.BackColor = Color2
Form1.BackColor = Color3
End Sub
Private Sub Command2_Click()
Text1.BackColor = Color4
Text2.BackColor = Color5
Form1.BackColor = Color6
End Sub
分别单击两个命令按钮，你可以看到窗体和两个文本框的背景色发生变化。