|教程: VisualBasicCOM基础讲座之属性|-|无师自通-教程网|

欢迎大家光临【无师自通-教程网】您的到来是我们的荣幸。本站提供photoshop教程,ps教程,flash教程,cad教程,网页制作教程,excel教程,asp教程,vb教程,3d教程,c语言教程,html教程,coreldraw教程,dreamweaver教程,java教程,3dmax教程等各种教程为主题的内容和服务,相信您会在这里找到您所需要的东东。无师自通伴您一生-谢谢您的光临！！

		网站地图	设为首页
		简繁切换	加入收藏
		栏目待定	留言本站

您现在的位置：无师自通-教程网 >> 程序设计 >> vb教程 >> vb基础 >> 教程正文

没有公告

图形图像教程	photoshop	Flash	3DS Max	CorelDraw	Fireworks	Illustrator	Maya	AutoCAD
网络应用教程	局域网教程	综合布线	系统集成	无盘网络组建	网络产品资料	网络风险评估	光纤通信	网络接入
程序设计教程	C语言教程	vb教程	C#教程	VC语言教程	Ｃ＋＋教程	Java教程	数据库教程	Delphi教程
操作系统教程	WindowsXP	Linux	Win2003	Vista	Win2000	苹果系统	Dos教程	FreeBSD
办公软件教程	Word教程	Excel教程	Powerpoint	Wps教程	Office视频	系统相关	系统工具	杀毒查毒
WEB开发教程	Asp教程	Jsp教程	Php教程	Xml教程	Html教程	CSS教程	CGI-Perl教程	ASP.NET

教程: VisualBasicCOM基础讲座之属性

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

　　常用属性通常包括"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"是怎样运行的？

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

教程录入：admin 责任编辑：admin

上一篇教程：教程: VBCOM编程基础之子过程函数和参数

下一篇教程：教程: VisualBasicCOM基础讲座之类的建立

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

access基础知识

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| 管理登录 \|
	免责声明!本站资料大部分来自于互联网,其版权归原作者或其他合法者所有.如内容涉及或侵犯了您的权益,请通知本人,我将尽快处理!.欢迎您的光临。辽ICP备07003958号