- Rongsen.Com.Cn 版权所有 2008-2010 京ICP备08007000号 京公海网安备11010802026356号 朝阳网安编号:110105199号
- 北京黑客防线网安工作室-黑客防线网安服务器维护基地为您提供专业的
服务器维护
,企业网站维护
,网站维护
服务 - （建议采用1024×768分辨率，以达到最佳视觉效果） Powered by 黑客防线网安 ©2009-2010 www.rongsen.com.cn
VBCOM基础讲座之创建第一个COM对象
作者：黑客防线网安VB教程基地 来源：黑客防线网安VB教程基地 浏览次数：0 |
黑客防线网安网讯：让我们直接来开始创建第一个真正的COM对象，它将被用于那些ActiveX程序中。 具体步骤如下： -align="right">->->-> 启动VisualBasic； 我们将看到一个"NewProject"...
让我们直接来开始创建第一个真正的COM对象，它将被用于那些ActiveX程序中。
具体步骤如下：
-align="right">->->-> 启动VisualBasic；
我们将看到一个"NewProject"对话框，其中有几个与ActiveX相关的选项图标。下面来解释一下：
ActiveXDLL——创建一个包含类的.DLL程序，这是我们将要采用的选项；
ActiveXEXE——创建一个包含类的.EXE程序，以后将讨论这个类型；
ActiveXControl——添加一个工程，允许自己创建用于toolbox中的控件。这里不去讨论它。
ActiveXDocumentEXE——创建一个基于Web页的.EXE程序，这里也不去讨论。
ActiveXDocumentDLL——创建一个基于Web页的.DLL程序，由于与我们的主题甚远，所以自然也不去讨论它。
顺便说明一下，如果在工程列表中没有上述选项，那么你可能使用了VisualBasic的学习版。
当然，在上述那么多选项中，我们真正感兴趣的是ActiveXDLLs和ActiveEXEs。等会再来讨论后一种，这里先看看第一种！
选中"ActiveXDLL"项；
单击[OK]按钮；
这样，一个ActiveXDLL工程就建立好了。我们之所以创建ActiveXDLL是准备将它作为一个前端服务器，它基于Northwind数据库中的Customers表的(Northwind数据库是随VisualBasic一起发行的，位于VB98文件夹中)。
这也就是说，我们后面一定会处理Customers信息，但那时我们仅仅需要对类的调用，而不想过多地停留在数据处理代码的纠缠中。
当然，我们得首先创建这个类。虽然COM能使编程更容易一点，但这个类的构造还是比较困难的。尽管如此，在深入数据库之前，先来对ActiveX程序中的名称作一些修改。
将类的Name属性改为"Customers"；
选择"Project"->"ProjectProperties"菜单，在弹出的对话框中，将工程名改为"Northwind"；
现在再来使类与数据库相连：
选择"Project"->"References"菜单；
在弹出的对话框中，选择"MicrosoftActiveXDataObjects2.1Library"，单击[OK]按钮；该"引用"允许用户处理一个数据库，当然现在都使用COM对象来处理了。下面将围绕相应的记录集而展开：
在我们的类中添加下列代码：
->DimrsAsRecordset->
这是一个用于访问数据库的记录集对象。
当然，当其他开始使用该类时，我们希望记录集对象能和数据库建立连接，而当类使用结束后，与数据库的连接能断开。基于这种思想，其代码如下：
在代码窗口中，将Object组合框中当前的"(General)"项改为"Class"；
在右边的组合框中，确保当前项为"Initialize"；
代码窗口中将出现：
-> PrivateSubClass_Initialize()
当类刚开始时，所有这里面的代码都会被执行，类似于表单中的Form_Load事件。
在"Initialize"事件中键入下列代码：
-> Setrs=NewRecordset
这里不需要任何与该类相关的代码，它只是使用VisualBasic通用的ADO数据库处理代码，该类中的代码是用来如何与数据库建立连接的。
需要说明的是，如果Northwind数据库Nwind.mdb不在C:ProgramFilesMicrosoftVisualStudioVB98文件夹，那么必须将ActiveConnection字符串内容作适当修改！
当类开始时，rs对象负责与数据库建立连接，但当类对象结束后或程序关闭它时，我们应该使该连接断开。
编程时，我们使用Terminate事件，它与Form_Unload非常相似的。从名称来看，它们都有一个"n"，但更相似的地方是当相应的对象关闭后，它们都会被激发。
下面来加入数据库关闭的代码：
从Object组合框中选择"Class"，从Procedure组合框中选择"Terminate"；
在"Terminate"事件中，添加下列代码：
-> rs.Close
这就是我们添加的又一段简单代码，它只是简单地关闭数据库，然后将rs设置为Nothing。这样，rs就会被有效删除。
好了，本节就到这里。下一节中，我们将继续添加代码用来处理数据中的记录集。->
具体步骤如下：
我们将看到一个"NewProject"对话框，其中有几个与ActiveX相关的选项图标。下面来解释一下：
ActiveXDLL——创建一个包含类的.DLL程序，这是我们将要采用的选项；
ActiveXEXE——创建一个包含类的.EXE程序，以后将讨论这个类型；
ActiveXControl——添加一个工程，允许自己创建用于toolbox中的控件。这里不去讨论它。
ActiveXDocumentEXE——创建一个基于Web页的.EXE程序，这里也不去讨论。
ActiveXDocumentDLL——创建一个基于Web页的.DLL程序，由于与我们的主题甚远，所以自然也不去讨论它。
顺便说明一下，如果在工程列表中没有上述选项，那么你可能使用了VisualBasic的学习版。
当然，在上述那么多选项中，我们真正感兴趣的是ActiveXDLLs和ActiveEXEs。等会再来讨论后一种，这里先看看第一种！
选中"ActiveXDLL"项；
单击[OK]按钮；
这样，一个ActiveXDLL工程就建立好了。我们之所以创建ActiveXDLL是准备将它作为一个前端服务器，它基于Northwind数据库中的Customers表的(Northwind数据库是随VisualBasic一起发行的，位于VB98文件夹中)。
这也就是说，我们后面一定会处理Customers信息，但那时我们仅仅需要对类的调用，而不想过多地停留在数据处理代码的纠缠中。
当然，我们得首先创建这个类。虽然COM能使编程更容易一点，但这个类的构造还是比较困难的。尽管如此，在深入数据库之前，先来对ActiveX程序中的名称作一些修改。
将类的Name属性改为"Customers"；
选择"Project"->"ProjectProperties"菜单，在弹出的对话框中，将工程名改为"Northwind"；
现在再来使类与数据库相连：
选择"Project"->"References"菜单；
在弹出的对话框中，选择"MicrosoftActiveXDataObjects2.1Library"，单击[OK]按钮；该"引用"允许用户处理一个数据库，当然现在都使用COM对象来处理了。下面将围绕相应的记录集而展开：
在我们的类中添加下列代码：
这是一个用于访问数据库的记录集对象。
当然，当其他开始使用该类时，我们希望记录集对象能和数据库建立连接，而当类使用结束后，与数据库的连接能断开。基于这种思想，其代码如下：
在代码窗口中，将Object组合框中当前的"(General)"项改为"Class"；
在右边的组合框中，确保当前项为"Initialize"；
代码窗口中将出现：
当类刚开始时，所有这里面的代码都会被执行，类似于表单中的Form_Load事件。
在"Initialize"事件中键入下列代码：
这里不需要任何与该类相关的代码，它只是使用VisualBasic通用的ADO数据库处理代码，该类中的代码是用来如何与数据库建立连接的。
需要说明的是，如果Northwind数据库Nwind.mdb不在C:ProgramFilesMicrosoftVisualStudioVB98文件夹，那么必须将ActiveConnection字符串内容作适当修改！
当类开始时，rs对象负责与数据库建立连接，但当类对象结束后或程序关闭它时，我们应该使该连接断开。
编程时，我们使用Terminate事件，它与Form_Unload非常相似的。从名称来看，它们都有一个"n"，但更相似的地方是当相应的对象关闭后，它们都会被激发。
下面来加入数据库关闭的代码：
从Object组合框中选择"Class"，从Procedure组合框中选择"Terminate"；
在"Terminate"事件中，添加下列代码：
这就是我们添加的又一段简单代码，它只是简单地关闭数据库，然后将rs设置为Nothing。这样，rs就会被有效删除。
好了，本节就到这里。下一节中，我们将继续添加代码用来处理数据中的记录集。->
黑客防线网安服务器维护方案本篇连接：http://www.rongsen.com.cn/show-14619-1.html
新闻栏目
| 我要申请本站：N点 | 黑客防线官网 | |
| 专业服务器维护及网站维护手工安全搭建环境，网站安全加固服务。黑客防线网安服务器维护基地招商进行中！QQ:29769479 |