VisualBasicCOM基础之更多属性

有时，需要更多的属性来更好地处理类。例如，假设您有四个不同的客户群:集团、较大、较小和新客户类型，或者在一个搜索类中有三种不同的搜索方法:软盘、硬盘和网络。那么，是否可以从选项列表中选择一个，而不是用无法理解的数字或文字来设置相关属性呢？

我想答案是肯定的。因为这个过程叫做“枚举”。

打开上一节中的项目，让我们添加一些代码。

将以下代码添加到CDog类中:

公共枚举涂层类型

BigAndShaggy = 1

短发= 2

PoodleStyleAfro = 3

未知= 4

结束枚举

关键字“Enum”用于定义枚举。换句话说，它是一个可能选项的列表。每个选项都有对应的数字，即BigAndShaggy表示1，ShortCrewCut等于2，以此类推。

需要注意的是，当枚举项的相关信息添加到数据库中时，其对应的数值是非常有用的。因为“BigAndShaggy”实际上表示的是值1，所以可以直接插入到数据库的数值型字段中。这意味着使用字符串维护数据库很方便。

因此，让我们创建一个狗的皮毛类型列表，并定义另一个属性来将这些类型添加到CDog类中。

在类中声明以下变量:

作为CoatType的私有udtCoat

该定义的私有变量用于存储要添加的外套类型属性。注意，udtCoat变量既不是字符串也不是整数，而是我们自己定义的枚举类型coattype。

打开CDog类时，选择“工具”菜单中的“添加过程”命令，弹出相应的对话框；

类型外套；在“名称”框中；

选择“属性”选项按钮，然后单击[确定]。

系统自动生成以下代码框架:

公共属性Get Coat()作为变量

结束属性

公共属性Let Coat(ByVal vNewValue作为变量)

结束属性