Enum语句应用

时　间:2014-07-20 08:07:01
作　者:杜超-2号   ID：16058  城市：江阴
摘　要:Enum 不是函数，是一种自定义枚举数据 Long 类型 
Enum 内部的元素可以不赋值，vb 会使用默认数值：首元素为 0，后面一个比前面一个大 1
正　文:

可以这样： 
Public Enum InterfaceColors 
My0 = -1 
My1 = 3 
My2 = 3 
My3 
My4 
End Enum 
则：My0=-1，My1=3，My2=3，My3=4，My4=5 
也可以这样： 
Public Enum InterfaceColors 
My0 
My1 
My2 
My3 
My4 
End Enum 
则：My0=0，My1=1，My2=2，My3=3，My4=4 
在程序中可这样应用： 
Dim MyColor As InterfaceColors 
MyColor = My2 
If MyColor = My2 Then .....

下面的示例用 Enum 语句定义一个命名常数的集合。在本例中是一些可以选择的颜色常数用于设计数据库的数据输入窗体。 
Public Enum InterfaceColors 
icMistyRose = &HE1E4FF& 
icSlateGray = &H908070& 
icDodgerBlue = &HFF901E& 
icDeepSkyBlue = &HFFBF00& 
icSpringGreen = &H7FFF00& 
icForestGreen = &H228B22& 
icGoldenrod = &H20A5DA& 
icFirebrick = &H2222B2& 
End Enum 
一定要赋值，以后用icFirebrick 代替 &H2222B2& 还可以定义变量 
dim a as InterfaceColors