VB COM基础讲座之类的测试

　　现在就来测试前面创建的类。

　　按F5运行程序；在弹出的属性对话框中，选中"Wait for Components to Start"(启动工程时等待创建部件)，然后按[OK]按钮；

　　这时，类就会被激活，其他程序就可使用它的功能。

　　再次运行Visual Basic另一个实例；

　　创建一个新的"Standard EXE"工程；

　　选择"'Project"->"References"菜单；

　　浏览对话框中可引用的列表项，可以发现一些额外的组件。

　　选中"Northwind"列表项；

　　Northwind就是前面创建的ActiveX工程。

　　单击[OK]按钮；

　　现在添加一些代码来使用上述工程：

　　在Form1表单中添加一个命令按钮；为命令按钮添加下列代码：

　　　　Dim Test As Customers
　　Set Test = New Customers
　　MsgBox Test.CustomerID
　　Set Test = Nothing

　　该代码首先创建一个新的Customers对象，然后显示CustomerID信息，最后将Test对象置为Nothing，并关闭它。

　　按F5键运行测试程序；

　　需要说明的是，当运行时出现"invalid reference"错误提示时，肯定哪些地方有问题。这时可按下面步骤重新来一次：

　　(1) 在测试工程中去掉Northwind引用；

　　(2) 重新启动Northwind工程；

　　(3) 在测试工程中添加Northwind引用，再运行！

　　单击表单中的命令按钮；

　　这时运行时可能需要几秒钟，毕竟还要做一些如数据库连接等工作。但是，除了一开始的停留外，后面的调用就快得多了。程序将显示包含"ALFKI"的消息对话框。

　　关闭测试程序。

　　现在，我们来看看程序背后究竟发生什么。