创建 ThingDemo DLL 工程

用 Visual Basic 创建一个 ActiveX DLL 是非常容易的，只要声明变量和编写过程就可以创建一个进程内部件。

本节提供了有关如何定义简单的类的循序渐进的指南，同时说明了由部件提供的对象的存活期。用这样的类创建的对象可以用于任何应用程序，只要应用程序能够使用 Automation 控制对象。

注意 创建一个 ActiveX DLL 示例需要分为几步，这个帮助主题只是其中一步。要访问该帮助主题，在“相关信息”中选择帮助主题“创建 ActiveX DLL”即可。

要创建 ThingDemo 工程，请按照以下步骤执行：

1. 在“文件”菜单中，单击“新建工程”。
   
   
2. 在“新建工程”对话框中，双击“ActiveX DLL”图标。Visual Basic 将向该新工程中自动添加一个类模块 Class1。
   
   
3. 按 F4 键打开“属性”窗口。双击“名称”属性并把它改成 Thing。通过类创建对象时需要使用这个名称。

   Instancing 属性的缺省值是 MultiUse。这允许客户应用程序创建 Thing 类的多个实例。关于 Instancing 属性的详细讨论，请参阅“部件设计的一般准则”中的“ActiveX 部件提供的类的实例化”。

4. 在“工程”菜单中，单击“Project1 属性”打开“工程属性”对话框。选择“通用”选项卡，填写以下信息，然后单击“确定”。

   

   ThingDemo 是工程名，同时用作部件的类型库的名称。它与部件提供的每个类的名称结合起来即可产生唯一的类名。

   如果两个部件各自提供了一个 Thing 类，那么需要对类名进行完全的限定，以区分到底要使用哪一个部件的 Thing 类，例如 ThingDemo.Thing。

5. 在“工程”菜单中，单击“添加模块”打开“添加模块”对话框。双击“模块”图标向工程中添加一个模块。

   注意 如果已经使用了“选项”对话框（可以由“工具”菜单打开）禁止“添加模块”对话框，那么就只能读取已有的模块。

6. 在模块的代码窗口中，添加下列代码：

   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
   

7. 在“文件”菜单中，单击“保存工程”，使用下面的名称保存工程文件。Visual Basic 会自动提供扩展名。

   文件	文件名	扩展名
   模块	ThingDemo_Module1	.bas
   类模块	ThingDemo_Thing	.cls
   工程	ThingDemo	.vbp

   
   

详细信息 请参阅“部件设计的一般准则”中的“选择工程类型和设置工程属性”。

循序渐进

创建 ActiveX DLL 示例需要好几步，该帮助主题只是其中一步。