基础之更多属

但我们需要的却不是这个框架。代码中，\"Variant\"变量类型是能接收和处理任何类型数据。在我们定义的CDog类中，最后的属性是Age，它只能接受整型。但现在需要属性能接收CoatType列表中的数据类型，因此需要作下列修改：

将产生的代码中所有的\"Variant\"改成\"CoatType\"；

然后，添加一些实际处理属性的代码。

在属性的Get过程中，添加下列代码：

Coat = udtCoat

在属性的Let过程中，添加下列代码：

udtCoat = vNewValue

切换到Form1；

将Command按钮的代码改为：

Dim MyDog As CDog

Set MyDog = New CDog

= \"Billy\"

现在开始键入：at =

奇迹出现了，当你敲下\"=\"键时，出现一个含有可能选项的列表，从中我们可以选择一个。

完成代码的键入：at = ShortCrewCut

下一步，我们将获取Coat属性的值。假如现在就来简单地在消息对话框中显示属性值，则只需返回选择项的值就可以了。例如，若选择了ShortCrewCut，其属性一定返回2。不信，可以试一试！

但这里采用另外一种方法，它是用If-Then语句判断Coat：

在Command按钮已有的代码后面添加下列代码：

If at = BigAndShaggy Then

MsgBox \"You have a big, bouncy, bushy pup!\"

ElseIf at = PoodleStyleAfro Then

MsgBox \"Your pooch is pretty, petit and pooch-like!\"

ElseIf at = ShortCrewCut Then

MsgBox \"Your dog is full of oomph, oomph and more oomph!\"

ElseIf at = Unknown Then

MsgBox \"I have no idea about your dog. I don\'t think \" _

欧洲股市周四收盘上涨1.1% \"you do either!\"

End If

这里的代码只是简单判断Coat属性值，并显示相应的消息对话框。当然，这里也可以使用\"Select Case\"语句。

最后，我们添加最后一条语句来释放计算机内存：

在Command按钮已有的代码后面添加下列代码：

Set MyDog = Nothing

按F5运行程序，并单击Command按钮测试一下。

结果怎样？

查看本文来源