VBCOM基础讲座之测试ActiveXEXEs

2018-06-17 17:15:53来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

本节将创建并测试自己的ActiveXEXE程序。

  示例中将使用这样一个组件,它是一个有效的文件探测器。大约每隔60秒检测指定文件的存在性。如何该文件存在,该组件激发一个事件来调用应用程序,如果不存在,则另作处理。

-align="right">->->->  当然,如果将所有代码写到ActiveXDLL工程,则运行时程序代码将被挂起直到文件检测代码运行完毕为止。由于ActiveXEXE工程拥有自己的进程空间,代码运行时会自我协调、异步处理,从而不会使其他程序代码停顿。

  下面就来创建:

  新建一个"ActiveXEXE"工程;

  工程名设为"File";

  添加的类名为"FileCheck";

  下一步,我们需要构造一些用于每隔1分钟左右检测文件的代码。这里将在ActiveXEXE工程插入一个带有计时器的表单。但该表单不会被显示,因为我们只是使用上面的计时器控件每隔1分钟左右来检测文件,如果相应的文件被检测到,则激发一个事件。

  选择"Project"->"AddForm";

  在表单Form1中添加一个计时器;

  在表单代码中添加下列变量的声明:

->PublicFilenameAsString->

  该变量用于保存被监视的文件名。

  在表单代码中添加下列事件的声明:

->PublicEventFileFound()->

  该事件只有当前面的文件发现后才被激发。

  在Timer1代码中添加下列语句:

->  PrivateSubTimer1_Timer()

   IfDir(Filename)<>""Then

    RaiseEventFileFound

    Timer1.Interval=0

   EndIf

  EndSub->

  代码中,首先简单地检测文件,若存在则激发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)<>""Then

    RaiseEventFileFound

    Timer1.Interval=0

   EndIf

  EndSub->

  代码中,首先简单地检测文件,若存在则激发FileFound事件,然后将Timer1的时间间隔设为0,停止以后的检测。

  打开FileCheck类;

  在通用声明处添加下列对象的声明:

->DimWithEventsobjFileCheckAsForm1->

  这就是Form1的代码,它通知VisualBasic上述定义的对象是用来保存表单的。关键词WithEvents表示该类可以接收传送来的事件,如前面的FileFound等。
从"Object"下拉列表框中选择"Class";

  再从"Procedure"下拉列表框中选择"Initialize";

  在Class_Initialize事件中添加下列代码:

->  PrivateSubClass_Initialize()

   SetobjFileCheck=NewForm1

  EndSub->

  该代码简单地使objFileCheck等于Form1的新的一个实例。之后,我们将使用在Form1中添加的功能。接下来,我们编写一个子过程用来监视一个文件。

  在FileCheck中添加下列代码:

->  PublicSubMonitorFile(FilenameAsString)

   objFileCheck.Filename=Filename

   objFileCheck.Timer1.Interval=60000

  EndSub->

  当我们调用此过程时,需要给出文件名参数。这时,表单的Filename变量保存该文件名,然后将计时器的时间间隔属性设置为60,000毫秒并激活该计时器。

  至此,我们构造了用于监视文件的所有代码。但是当文件检测到时,我们需要通过激发FileFound事件通知程序正在使用ActiveXEXE。

  在通用声明部分添加下列事件声明:

->PublicEventFileFound(FilenameAsString)->

  该代码只是简单地定义一个FileFound事件,下一步该事件的相应代码。

  从"Object"下拉列表框中选择"objFileCheck";

  再从"Procedure"下拉列表框中选择"FileFound";

->  PrivateSubobjFileCheck_FileFound()

   RaiseEventFileFound(objFileCheck.Filename)

  EndSub->

  显然,当文件检测到时,这里的FileFound事件就被激发。但我们还需要在使用EXE程序中添加这个事件的添加代码。

  在objFileCheck_FileFound事件中添加下列代码:

  RaiseEventFileFound(objFileCheck.Filename)

  这就是我们的全部代码。

  当程序员使用该类时,都可以文件名为参数调用MonitorFile方法,然后表单中的计时器被引发,每隔60秒钟检测一下文件,若该文件被查找到,则激发FileCheck类中的事件,该事件又激发相关的应用程序中的另一个事件,用来通知程序员,该文件已被找到。

  明白了吗?让我们试试看吧!->

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:使用ADO來压缩或修复MicrosoftAccess文件

下一篇:VisualBasic让表单一开始就显示在荧幕中央(含工作列)