Visual Basic COM基础之更多属性

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

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

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

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

Coat = udtCoat

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

udtCoat = vNewValue

　　
　　切换到Form1；

　　将Command按钮的代码改为：

Dim MyDog As CDog Set MyDog = New CDog MyDog.Name = "Billy"

　　现在开始键入：MyDog.Coat =

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

　　完成代码的键入：MyDog.Coat = ShortCrewCut

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

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

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

If MyDog.Coat = BigAndShaggy Then 　　　MsgBox "You have a big, bouncy, bushy pup!" 　　ElseIf MyDog.Coat = PoodleStyleAfro Then 　　　MsgBox "Your pooch is pretty, petit and pooch-like!" 　　ElseIf MyDog.Coat = ShortCrewCut Then 　　　MsgBox "Your dog is full of oomph, oomph and more oomph!" 　　ElseIf MyDog.Coat = Unknown Then 　　　MsgBox "I have no idea about your dog. I don't think " & _ 　　　　　　　 "you do either!" 　　End If

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

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

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

Set MyDog = Nothing

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

　　结果怎样？

查看本文来源