发信人: antfeeling()
整理人: fishy(2000-08-22 08:07:56), 站内信件
|
创建 ThingDemo DLL 工程
用 Visual Basic 创建一个 ActiveX DLL 是非常容易的，只要声明变量和编写过
程就可以创建一个进程内部件。
本节提供了有关如何定义简单的类的循序渐进的指南，同时说明了由部件提供的
对象的存活期。用这样的类创建的对象可以用于任何应用程序，只要应用程序能
够使用 Automation 控制对象。
注意 创建一个 ActiveX DLL 示例需要分为几步，这个帮助主题只是其中一步。
要访问该帮助主题，在“相关信息”中选择帮助主题“创建 ActiveX DLL”即可
。
要创建 ThingDemo 工程，请按照以下步骤执行：
在“文件”菜单中，单击“新建工程”。
在“新建工程”对话框中，双击“ActiveX DLL”图标。Visual Basic 将向该新
工程中自动添加一个类模块 Class1。
按 F4 键打开“属性”窗口。双击“名称”属性并把它改成 Thing。通过类创建
对象时需要使用这个名称。
Instancing 属性的缺省值是 MultiUse。这允许客户应用程序创建 Thing 类的多
个实例。关于 Instancing 属性的详细讨论，请参阅“部件设计的一般准则”中
的“ActiveX 部件提供的类的实例化”。
在“工程”菜单中，单击“Project1 属性”打开“工程属性”对话框。选择“通
用”选项卡，填写以下信息，然后单击“确定”。
ThingDemo 是工程名，同时用作部件的类型库的名称。它与部件提供的每个类的
名称结合起来即可产生唯一的类名。
如果两个部件各自提供了一个 Thing 类，那么需要对类名进行完全的限定，以区
分到底要使用哪一个部件的 Thing 类，例如 ThingDemo.Thing。
在“工程”菜单中，单击“添加模块”打开“添加模块”对话框。双击“模块”
图标向工程中添加一个模块。
注意 如果已经使用了“选项”对话框（可以由“工具”菜单打开）禁止“添加模
块”对话框，那么就只能读取已有的模块。
在模块的代码窗口中，添加下列代码：
Option Explicit
Public gdatServerStarted As Date
Sub Main()
'部件开始时要执行的代码，
' 对第一个对象的请求作出反应。
gdatServerStarted = Now
Debug.Print "E xecuting Sub Main"
End Sub
'为对象提供唯一标识符的函数。
Public Function GetDebugID() As Long
Static lngDebugID As Long
lngDebugID = lngDebugID + 1
GetDebugID = lngDebugID
End Function
在“文件”菜单中，单击“保存工程”，使用下面的名称保存工程文件。Visual
Basic 会自动提供扩展名。 文件 文件名 扩展名
模块 ThingDemo_Module1 .bas
类模块 ThingDemo_Thing .cls
工程 ThingDemo .vbp
详细信息 请参阅“部件设计的一般准则”中的“选择工程类型和设置工程属性”
。
循序渐进
创建 ActiveX DLL 示例需要好几步，该帮助主题只是其中一步。
目的 请参阅
到下一步 为 Thing 类创建属性和方法Class
从头开始 创建一个 ActiveX DLL
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 61.141.204.217]
|
|