Visual Basic COM基础讲座之类的建立之二(转)

上述代码的第一行是用来设置MyDog的Name变量，同时第二行语句是用来将该变量的内容显示在消息对话框中。最后：

Set MyDog = Nothing

　　 用来将MyDog对象简单的置空。

　　 按F5键运行并测试。

　　 怎么样？但同时，我们可能不禁要问，标准模块和类模块究竟有什么不同？我们再来看看下面的示例：

　　 将命令按钮的代码变成：

Dim MyDog As CDog 　　 Set MyDog = New CDog 　　 Dim MyDog2 As CDog 　　 Set MyDog2 = New CDog 　　 MyDog.Name = "Billy Moore" 　　 MsgBox MyDog.Name 　　 MyDog2.Name = "Sadie Moore" 　　 MsgBox MyDog2.Name 　　 Set MyDog = Nothing 　　 Set MyDog2 = Nothing

　　 与最前面的代码不同的是，这里的代码实际上是定义两个对象MyDog和MyDog2，这两个对象是基于CDog的相互独立的两个对象。

　　 按F5键运行并测试。

　　 结果怎样？这一次是不是有两个对话框出现？一个显示"Billy Moore"，另一个显示"Sadie Moore"。
上述定义的每个对象中除了Name外，没有任何实际的属性，因此下面过程就来添加：

　　 打开前面的Class1；

　　 声明下面的公共变量：

Public Age As Integer

　　 打开前面的Form1；

　　 将命令按钮的代码变成：

Dim MyDog As CDog 　　 Set MyDog = New CDog 　　 Dim MyDog2 As CDog 　　 Set MyDog2 = New CDog 　　 MyDog.Name = "Billy Moore" 　　 MyDog.Age = 4 　　 MsgBox MyDog.Name & " is " & MyDog.Age & " years old" 　　 MyDog2.Name = "Sadie Moore" 　　 MyDog2.Age = 7 　　 MsgBox MyDog2.Name & " is " & MyDog2.Age & " years old" 　　 Set MyDog = Nothing 　　 Set MyDog2 = Nothing

　　 这些代码和前面差不多，只不过这里使用了Age变量。

　　 按F5键运行并测试。

　　 应该出现显示name和age内容的两个消息对话框。

　　 现在再试着将其中一个对象的age值设置成1,000或者30,000。看看结果如何？程序照样正常运行，这是因为定义的整型变量最大值可达32,767，但是实际中的狗(Dog)是不会有30,000岁的。

　　 那么，这种情况应该怎样处理呢？[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-925182/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-925182/