站长学院通行证
搜索引擎
学院
当前位置 → 中国站长学院 → 网络编程 → Visual Basic教程 → 浏览正文
TAG： 网页教程 网络教程 教程 实例教程 实例 VB 编程
所有栏目
作者：中国站长学院[收集整理] 来源：互联网转载 点击数： 更新时间：2008年03月17日
【字体：大 中 小】 荐 【背景色 】 【收藏本文】 【打印】
属性操作很像公共变量，但属性还有更多的控制。 常用属性通常包括Get(获取)和Let(设置)两种。这两项操作能规定一个主要属性，就像下面的代码片段：-> PrivateintAgeAsInteger PublicPropertyGetAge()AsInteger Age=intAge EndProperty PublicPropertyLetAge(ByValvNewValueAsInteger) intAge=vNewValue EndProperty-> 上述代码的工作方式极像Age变量的操作。当像下面语句操作变量时，->MyDog.Age=4-> 就好比运行Let属性，并将4赋给vNewValue。当像下面语句操作变量时，->MsgBoxMyDog.Age-> 是获取属性，就好比运行Get属性，并将相应的值由intAge返回。因此，我们可以这样认为： 所谓Get属性，就是运行后获取某个值； 所谓Let属性，就是运行后让某个属性等于某个值； 但至此为止，我们仅仅说明属性工作方式与标准变量极为相似，还没有来得及对属性进行更多的控制。所以，下面就来讨论。 打开上一节的工程，对CDog类进行如下修改： 从CDog类中去掉Age变量； 添加下列代码：-> FACE=CourierSIZE=2> PrivateintAgeAsInteger PublicPropertyGetAge()AsInteger Age=intAge EndProperty PublicPropertyLetAge(ByValvNewValueAsInteger) IfvNewValue<=50Then intAge=vNewValue EndIf EndProperty-> 与前面的代码相比，这里只是对Let属性代码作稍加修改。下面对其作小小的测试，假想用户试图想使：->MyDog.Age=30-> 也就是运行Let属性，使vNewValue等于30。代码中，还检测vNewValue是否小于或等于50。显然，30是符合要求的，因此实例中的intAge值等于30。但如果超过50，则什么也不会发生，属性退出且没有任何赋值。当然，我们也可以对此给出相应的错误代码或是显示一个提示对话框。 切换到Form1后面的代码窗口； 在设置Age属性代码处的第一行语句中单击鼠标，并按F9； MyDog.Age=4 在获取Age属性代码处的第一行语句中单击鼠标，并按F9； MsgBoxMyDog.Name&is&MyDog.Age&yearsold 现在让我们测试一下： 按F5运行程序； 单击Command按钮； 代码应该中断在按F9添加的断点的代码行上。 当代码中断后，按F8单步运行并观察结果； 现在明白它们是怎样工作的吗？注意Age属性的get和let是怎样运行的？ 在下一节中，我们不仅要讨论使用更多属性的方式，而且还讨论如何随意创建它们。->
责任编辑：中国站长学院
注册投稿
收藏本文到 >>>
上一篇：VisualBasicCOM基础之更多属性
下一篇：VisualBasicCOM基础讲座之类的建立
相关文章
推荐导读
热门资讯
资讯快报
论坛新贴
返回首页
关于我们 - 帮助(？) - 广告服务 - 诚征英才 - 友情链接 - 网站地图 - 站长BLOG
【背景色
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus();){kind=logo}
返回首页