现在就来测试前面创建的类。
按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的值,而且还设置这个值。
将命令按钮的代码改为: