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"的消息对话框。

　　 关闭测试程序。

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

　　 将插入符移动到MsgBox Test.CustomerID这条语句上；按F9；

　　 该语句显示为红色，用来标记一个断点。当代码运行时，它会停留在这里。按F8将单步运行此语句，并移动到下一句代码上。

　　 按F5再次运行测试程序；

　　 单击命令按钮；

　　 流程将停留在MsgBox这条命令上。

　　 按F8，慢慢单步执行各条语句；

　　 将会看到系统在两个Visual Basic中来回切换，显示出不同属性的处理过程。

　　 结束后，关闭测试程序。

　　 下面再对前面的工程进行测试。这一次，我们不仅获取CustomerID的值，而且还设置这个值。

　　 将命令按钮的代码改为：

Dim Test As Customers 　　 Set Test = New Customers 　　 Test.CustomerID = "KARLY" 　　 Test.Update 　　 MsgBox Test.CustomerID 　　 Set Test = Nothing

　　 该代码首先设置"CustomerID"字段，然后更新记录集，最后显示出CustomerID属性，其结果应该是设置的"KARLY"。[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-925172/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-925172/