VBCOM基础讲座之类的测试

文章作者 100test 发表时间 2007:09:06 12:00:33
来源 100Test.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

相关文章


用VB6.0设计简易赛车游戏
一个利用随机数加密字串的算法
VBCOM基础讲座之类的测试
VBCOM编程基础之子过程函数和参数
VBCOM基础讲座之添加属性和方法
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛