Visual Basic COM基础之更多属性_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Visual Basic COM基础之更多属性

作者：闵涛文章来源：闵涛的学习笔记点击数：603 更新时间：2009/4/23 15:02:58

　　有时候，为了更好地处理类往往需更多的属性。例如，假如你有四种不同的客户群：集团、较大、较小和新的客户类型，或者一个用于搜索的类中有三种不同的搜索方式：软盘、硬盘和网络。那么，能不能最好从选项列表中选择一个，而不是用不能理解的数字或文本来设置相关属性？

　　我想，答案是肯定的。因为这种处理就称为"枚举"。

　　打开上一节的工程，让我们添加一些代码。

　　在CDog类中添加下列代码：

　　Public Enum CoatType

　　　BigAndShaggy = 1

　　　ShortCrewCut = 2

　　　PoodleStyleAfro = 3

　　　Unknown = 4

　　end Enum
　　关键词"Enum"就是用来定义枚举的，换句话说，它是可能选项的列表。各选项都有相应的数字，也就是说BigAndShaggy表示1，ShortCrewCut等于2，等等。

　　需要注意的是，当将枚举项相关信息添加在数据库中时，其相应的数值是非常有用的。由于"BigAndShaggy"实际代表的是数值1，所以可以直接将其插入到数据库的数值字段中。这就意味着，可以方便使用字符串来维护数据库。

　　所以，我们来创建一个Dog的Coat类型列表，并另外定义一个属性，将这些类型添加在CDog类中。

　　在类中声明下列变量：

　　Private udtCoat As CoatType

　　这个定义的私有变量用来保存即将添加的Coat类型属性，注意到udtCoat变量既不是字符串也不是整型，而是我们自己定义的枚举类型CoatType。

　　当类CDog打开时，选择"Tools"菜单中的"Add Procedure"命令，弹出相应的对话框；

　　Name编辑框中键入Coat；

　　选中"Property"选项按钮，然后单击[OK]。

　　系统自动产生下列代码框架：

　　Public Property Get Coat() As Variant

　　End Property

　　Public Property Let Coat(ByVal vNewValue As Variant)

　　End Property

[系统软件]Visual Studio 2005 Express Beta Products 下载链…  [系统软件]Visual FoxPro9.0中扩展报表系统功能
[系统软件]Visual FoxPro：我是旁观者  [系统软件]Visual Studio 2005 Express Editions Beta 2 下载…
[系统软件]Boost库在XP+Visual C++.net中的安装  [系统软件]Visual Studio 2005 Express Edition 正式版下载地…
[常用软件]Visual Foxpro通用报表打印程序  [常用软件]Visual FoxPro 6.0与大型数据库的无数据源连接
[常用软件]Visual Foxpro 的一个BUG  [VB.NET程序]Visual Basic 6 逆向工程与反逆向工程 (2)

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

上一篇教程： Visual Basic COM基础讲座之属性

下一篇教程： VB COM编程基础之子过程函数和参数

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

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……