|教程: 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基础讲座之类的建立

在本节中，我们来实践一下。首先创建一个COM对象，然后使用它，最后再想法改进。

　　首先进行下面两步：

　　运行Visual Basic；选择 "Standard EXE"工程类型；由于COM对象是基于类的，而类实际上是程序包，就像模块中的代码一样。所以：

　　选择"Project"->"Add Class Module"；当相应的对话框出现后，选择"'Class Module"，然后单击"Open"按钮。

　　这样，在桌面上显示一个表单，以及包含在工程Project1中的Class1。

　　下面再将空的类的类名更改：

　　在类的属性窗口中，将类的Name属性改成CDog。

　　需要说明的是，为了区别起见，每个对象名的前面都有相应的前缀，例如Text Box对象前是"txt"、Form前是"frm"、类前可以大写字母"C"或小写字母"cls"，但这里使用前者。

　　下面我们添加一些代码来测试一下：

　　在CDog类通用声明部分中，添加变量的声明：

Public Name As String
　　然后，打开Form1；

　　在表单中添加一个命令按钮；

　　打开代码窗口，为该命令按钮添加下列代码：

　　Dim MyDog As CDog
　　 Set MyDog = New CDog
　　 MyDog.Name = "Billy Moore"
　　 MsgBox MyDog.Name
　　 Set MyDog = Nothing
　　下面就来解释上述代码的含义：

Dim MyDog As CDog
　　该行语句是用来通知Visual Basic为CDog对象设置一个位空间，但这时还不能使用该对象，必须等到下条语句为止：

　　Set MyDog = New CDog
　　它是用来创建CDog的实例。这就意味着前面空的MyDog模板变成了现在可以使用的CDog对象。

　　MyDog.Name = "Billy Moore"
　　 MsgBox MyDog.Name
　　上述代码的第一行是用来设置MyDog的Name变量，同时第二行语句是用来将该变量的内容显示在消息对话框中。最后：

　　Set MyDog = Nothing
　　用来将MyDog对象简单的置空。

　　按F5键运行并测试。

　　怎么样？但同时，我们可能不禁要问，标准模块和类模块究竟有什么不同？我们再来看看下面的示例：

　　将命令按钮的代码变成：

　　Dim MyDog As CDog
　　 Set MyDog = New CDog
　　 Dim MyDog2 As CDog
　　 Set MyDog2 = New CDog
　　 MyDog.Name = "Billy Moore"
　　 MsgBox MyDog.Name
　　 MyDog2.Name = "Sadie Moore"
　　 MsgBox MyDog2.Name
　　 Set MyDog = Nothing
　　 Set MyDog2 = Nothing
　　与最前面的代码不同的是，这里的代码实际上是定义两个对象MyDog和MyDog2，这两个对象是基于CDog的相互独立的两个对象。

　　按F5键运行并测试。

　　结果怎样？这一次是不是有两个对话框出现？一个显示"Billy Moore"，另一个显示"Sadie Moore"。
上述定义的每个对象中除了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岁的。

　　那么，这种情况应该怎样处理呢？

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

上一篇教程：教程: VisualBasicCOM基础讲座之属性

下一篇教程：教程: VisualBasicCOM基础讲座之简介

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

access基础知识

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