| | | 类的建立 | | 2001-02-23·
·adding··yesky
| 上一页 1 2 3
上述定义的每个对象中除了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岁的。
那么，这种情况应该怎样处理呢？
上一页 1 2 3 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
