创建和测试 Thing 对象

要测试一个类，例如本例中的 Thing 类，测试工程必须请求部件创建该类的一个对象。

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

在测试工程中调整 Form1 的大小，然后象图 2.2 那样在上面放五个命令按钮和一个复选框。如果您从来没有用 Visual Basic 创建过窗体，请参阅《Visual Basic 程序员指南》中的“用 Visual Basic 开发应用程序”。

图 2.2   用来测试 Thing 类的窗体

下表列出了需要设置的属性值。

要添加创建 Thing 并调用它的属性和方法的方法，请按照以下步骤执行：

1. 把下列代码加入测试应用程序窗体模块的声明部分：

   Option Explicit
   '对 Thing 对象的引用。
   Private mthTest As Thing
   

2. 在“对象”框中，选择“Command1”。在 Click 事件过程中添加以下代码：

   '按钮“Create New Thing”。
   Private Sub Command1_Click()
   Set mthTest = New Thing
   mthTest.Name = _
   InputBox("Enter a name for the Thing", _
   "Test Thing")
   End Sub
   

3. 用类似的办法，在 Command2、Command3 和 Command4 的 Click 事件过程添加以下代码：

   '按钮“Show the Thing”。
   Private Sub Command2_Click()
   MsgBox "Name: " & mthTest.Name, , _
   "Thing " & mthTest.DebugID
   End Sub
   
   '按钮“Reverse the Thing's Name”。
   Private Sub Command3_Click()
   mthTest.ReverseName
   '通过设置值来单击“Show the Thing”。
   Command2.Value = True
   End Sub
   
   '按钮“Release the Thing”。
   Private Sub Command4_Click()
   Set mthTest = Nothing
   End Sub
   

目前，暂时不需要添加 Command5 和复选框的代码。

循序渐进

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