www.shishicaimh.comshishicaimh.comVBCOM基础讲座之测试ActiveXEXEs示例中将使用这样一个组件，它是一个有效的文件探测器。大约每隔60秒检测指定文件的存在性。如何该文件存在，该组件激发一个事件来调用应用程序，如果不存在，则另作处理。当然，如果将所有代码写到ActiveXDLL工程，则运行时程序代码将被挂起直到文件检测代码运行完毕为止。由于ActiveXEXE工程拥有自己的进程空间，代码运行时会自我协调、异步处理，从而不会使其他程序代码停顿。下面就来创建：新建一个"ActiveXEXE"工程；工程名设为"File"；添加的类名为"FileCheck"；下一步，我们需要构造一些用于每隔1分钟左右检测文件的代码。这里将在ActiveXEXE工程插入一个带有计时器的表单。但该表单不会被显示，因为我们只是使用上面的计时器控件每隔1分钟左右来检测文件，如果相应的文件被检测到，则激发一个事件。选择"Project"->"AddForm"；在表单Form1中添加一个计时器；在表单代码中添加下列变量的声明：->PublicFilenameAsString->该变量用于保存被监视的文件名。在表单代码中添加下列事件的声明：->PublicEventFileFound()->该事件只有当前面的文件发现后才被激发。在Timer1代码中添加下列语句：->PrivateSuBTimer1_Timer()IfDir(Filename)<>""ThenRaiseEventFileFoundTimer1.Interval=0EndIfEndSub->代码中，首先简单地检测文件，若存在则激发FileFound事件，然后将Timer1的时间间隔设为0，停止以后的检测。打开FileCheck类；在通用声明处添加下列对象的声明：->DimWithEventsobjFileCheckAsForm1->这就是Form1的代码，它通知VisualBasic上述定义的对象是用来保存表单的。关键词WithEvents表示该类可以接收传送来的事件，如前面的FileFound等。本节将创建并测试自己的ActiveXEXE程序。示例中将使用这样一个组件，它是一个有效的文件探测器。大约每隔60秒检测指定文件的存在性。如何该文件存在，该组件激发一个事件来调用应用程序，如果不存在，则另作处理。当然，如果将所有代码写到ActiveXDLL工程，则运行时程序代码将被挂起直到文件检测代码运行完毕为止。由于ActiveXEXE工程拥有自己的进程空间，代码运行时会自我协调、异步处理，从而不会使其他程序代码停顿。下面就来创建：新建一个"ActiveXEXE"工程；工程名设为"File"；添加的类名为"FileCheck"；下一步，我们需要构造一些用于每隔1分钟左右检测文件的代码。这里将在ActiveXEXE工程插入一个带有计时器的表单。但该表单不会被显示，因为我们只是使用上面的计时器控件每隔1分钟左右来检测文件，如果相应的文件被检测到，则激发一个事件。选择"Project"->"AddForm"；在表单Form1中添加一个计时器；在表单代码中添加下列变量的声明：->PublicFilenameAsString->该变量用于保存被监视的文件名。在表单代码中添加下列事件的声明：PublicEventFileFound()该事件只有当前面的文件发现后才被激发。在Timer1代码中添加下列语句：->PrivateSuBTimer1_Timer()IfDir(Filename)<>""ThenRaiseEventFileFoundTimer1.Interval=0EndIfEndSub->代码中，首先简单地检测文件，若存在则激发FileFound事件，然后将Timer1的时间间隔设为0，停止以后的检测。打开FileCheck类；在通用声明处添加下列对象的声明：->DimWithEventsobjFileCheckAsForm1->这就是Form1的代码，它通知VisualBasic上述定义的对象是用来保存表单的。关键词WithEvents表示该类可以接收传送来的事件，如前面的FileFound等。从"Object"下拉列表框中选择"Class"；再从"Procedure"下拉列表框中选择"Initialize"；在Class_Initialize事件中