• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

visual basic com基础讲座之属性

　　属性操作很像公共变量，但属性还有更多的控制。

　　 常用属性通常包括"get(获取)"和"let(设置)"两种。这两项操作能规定一个主要属性，就像下面的代码片段：

private intage as integer 　　　 public property get age() as integer 　　　 age = intage 　　 end property 　　 public property let age(byval vnewvalue as integer) 　　　 intage = vnewvalue 　　 end property

　　 上述代码的工作方式极像age变量的操作。当像下面语句操作变量时，

mydog.age = 4

　　 就好比运行let属性，并将4赋给vnewvalue。当像下面语句操作变量时，

msgbox mydog.age

　　 是获取属性，就好比运行get属性，并将相应的值由intage返回。因此，我们可以这样认为：

　　 所谓get属性，就是运行后获取某个值；

　　 所谓let属性，就是运行后让某个属性等于某个值；

　　 但至此为止，我们仅仅说明属性工作方式与标准变量极为相似，还没有来得及对属性进行更多的控制。所以，下面就来讨论。

　　 打开上一节的工程，对cdog类进行如下修改：

　　 从cdog类中去掉age变量；

　　 添加下列代码：

face="courier" size=2> 　　 private intage as integer 　　 public property get age() as integer 　　　 age = intage 　　 end property 　　 public property let age(byval vnewvalue as integer) 　　　 if vnewvalue <= 50 then 　　　　 intage = vnewvalue 　　　 end if 　　 end property

　　 与前面的代码相比，这里只是对let属性代码作稍加修改。下面对其作小小的测试，假想用户试图想使：

mydog.age=30

　　 也就是运行let属性，使vnewvalue等于30。代码中，还检测vnewvalue是否小于或等于50。显然，30是符合要求的，因此实例中的intage值等于30。但如果超过50，则什么也不会发生，属性退出且没有任何赋值。当然，我们也可以对此给出相应的错误代码或是显示一个提示对话框。

　　 切换到form1后面的代码窗口；

　　 在设置age属性代码处的第一行语句中单击鼠标，并按f9；

　　 mydog.age = 4

　　 在获取age属性代码处的第一行语句中单击鼠标，并按f9；

　　 msgbox mydog.name & " is " & mydog.age & " years old"

　　 现在让我们测试一下：

　　 按f5运行程序；

　　 单击command按钮；

　　 代码应该中断在按f9添加的断点的代码行上。

　　 当代码中断后，按f8单步运行并观察结果；

　　 现在明白它们是怎样工作的吗？注意age属性的"get"和"let"是怎样运行的？

　　 在下一节中，我们不仅要讨论使用更多属性的方式，而且还讨论如何随意创建它们。

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范