VisualBasicCOM基础之更多属性

　　 我想，答案是肯定的。因为这种处理就称为"枚举"。

　　 打开上一节的工程，让我们添加一些代码。

　　 在CDog类中添加下列代码：

　　Public Enum CoatType

　　　 BigAndShaggy = 1

　　　 ShortCrewCut = 2

　　　 PoodleStyleAfro = 3

　　　 Unknown = 4

　　 end Enum

　　 关键词"Enum"就是用来定义枚举的，换句话说，它是可能选项的列表。各选项都有相应的数字，也就是说BigAndShaggy表示1，ShortCrewCut等于2，等等。

　　 需要注意的是，当将枚举项相关信息添加在数据库中时，其相应的数值是非常有用的。由于"BigAndShaggy"实际代表的是数值1，所以可以直接将其插入到数据库的数值字段中。这就意味着，可以方便使用字符串来维护数据库。

　　 所以，我们来创建一个Dog的Coat类型列表，并另外定义一个属性，将这些类型添加在CDog类中。

　　 在类中声明下列变量：

　　 Private udtCoat As CoatType

　　 这个定义的私有变量用来保存即将添加的Coat类型属性，注意到udtCoat变量既不是字符串也不是整型，而是我们自己定义的枚举类型CoatType。

　　 当类CDog打开时，选择"Tools"菜单中的"Add Procedure"命令，弹出相应的对话框；

　　 Name编辑框中键入Coat；

　　 选中"Property"选项按钮，然后单击[OK]。

　　 系统自动产生下列代码框架：

　　Public Property Get Coat() As Variant

　　 End Property

　　 Public Property Let Coat(ByVal vNewValue As Variant)

　　 End Property