 |
|
 |
您现在的位置： 精品下载 >> 开发 >> VB >> 文章正文 |  用户登录  新用户注册 |
|
||||
| VB COM基础讲座之测试ActiveX EXEs | ||||
| 作者：佚名 文章来源：不详 点击数： 更新时间：2007-8-30 | ||||
本节将创建并测试自己的ActiveX EXE程序。 示例中将使用这样一个组件，它是一个有效的文件探测器。大约每隔60秒检测指定文件的存在性。如何该文件存在，该组件激发一个事件来调用应用程序，如果不存在，则另作处理。 当然，如果将所有代码写到ActiveX DLL工程，则运行时程序代码将被挂起直到文件检测代码运行完毕为止。由于ActiveX EXE工程拥有自己的进程空间，代码运行时会自我协调、异步处理，从而不会使其他程序代码停顿。 下面就来创建： 新建一个"ActiveX EXE"工程； 工程名设为"File"； 添加的类名为"FileCheck"； 下一步，我们需要构造一些用于每隔1分钟左右检测文件的代码。这里将在ActiveX EXE工程插入一个带有计时器的表单。但该表单不会被显示，因为我们只是使用上面的计时器控件每隔1分钟左右来检测文件，如果相应的文件被检测到，则激发一个事件。 选择"Project"->"Add Form"； 在表单Form1中添加一个计时器； 在表单代码中添加下列变量的声明： Public Filename As String 该变量用于保存被监视的文件名。 在表单代码中添加下列事件的声明： Public Event FileFound() 该事件只有当前面的文件发现后才被激发。 在Timer1代码中添加下列语句： Private Sub Timer1_Timer() If Dir(Filename) <> "" Then RaiseEvent FileFound Timer1.Interval = 0 End If End Sub 代码中，首先简单地检测文件，若存在则激发FileFound事件，然后将Timer1的时间间隔设为0，停止以后的检测。 打开FileCheck类； 在通用声明处添加下列对象的声明： Dim WithEvents objFileCheck As Form1 这就是Form1的代码，它通知Visual Basic上述定义的对象是用来保存表单的。关键词WithEvents表示该类可以接收传送来的事件，如前面的FileFound等。 本节将创建并测试自己的ActiveX EXE程序。 示例中将使用这样一个组件，它是一个有效的文件探测器。大约每隔60秒检测指定文件的存在性。如何该文件存在，该组件激发一个事件来调用应用程序，如果不存在，则另作处理。 当然，如果将所有代码写到ActiveX DLL工程，则运行时程序代码将被挂起直到文件检测代码运行完毕为止。由于ActiveX EXE工程拥有自己的进程空间，代码运行时会自我协调、异步处理，从而不会使其他程序代码停顿。 下面就来创建： 新建一个"ActiveX EXE"工程； 工程名设为"File"； 添加的类名为"FileCheck"； 下一步，我们需要构造一些用于每隔1分钟左右检测文件的代码。这里将在ActiveX EXE工程插入一个带有计时器的表单。但该表单不会被显示，因为我们只是使用上面的计时器控件每隔1分钟左右来检测文件，如果相应的文件被检测到，则激发一个事件。 选择"Project"->"Add Form"； 在表单Form1中添加一个计时器； 在表单代码中添加下列变量的声明： Public Filename As String 该变量用于保存被监视的文件名。 在表单代码中添加下列事件的声明： Public Event FileFound() 该事件只有当前面的文件发现后才被激发。 在Timer1代码中添加下列语句： Private Sub Timer1_Timer() If Dir(Filename) <> "" Then RaiseEvent FileFound Timer1.Interval = 0 End If End Sub 代码中，首先简单地检测文件，若存在则激发FileFound事件，然后将Timer1的时间间隔设为0，停止以后的检测。 打开FileCheck类； 在通用声明处添加下列对象的声明： Dim WithEvents objFileCheck As Form1 这就是Form1的代码，它通知Visual Basic上述定义的对象是用来保存表单的。关键词WithEvents表示该类可以接收传送来的事件，如前面的FileFound等。 从"Object"下拉列表框中选择"Class"； 再从"Procedure"下拉列表框中选择"Initialize"； 在Class_Initialize事件中添加下列代码： Private Sub Class_Initialize() Set objFileCheck = New Form1 End Sub 该代码简单地使objFileCheck等于Form1的新的一个实例。之后，我们将使用在Form1中添加的功能。接下来，我们编写一个子过程用来监视一个文件。 在FileCheck中添加下列代码： Public Sub MonitorFile(Filename As String) objFileCheck.Filename = Filename objFileCheck.Timer1.Interval = 60000 End Sub 当我们调用此过程时，需要给出文件名参数。这时，表单的Filename变量保存该文件名，然后将计时器的时间间隔属性设置为60,000毫秒并激活该计时器。 至此，我们构造了用于监视文件的所有代码。但是当文件检测到时，我们需要通过激发FileFound事件通知程序正在使用ActiveX EXE。 在通用声明部分添加下列事件声明： Public Event FileFound(Filename As String) 该代码只是简单地定义一个FileFound事件，下一步该事件的相应代码。 从"Object"下拉列表框中选择"objFileCheck"； 再从"Procedure"下拉列表框中选择"FileFound"； Private Sub objFileCheck_FileFound ( ) RaiseEvent FileFound ( objFileCheck.Filename) End Sub 显然，当文件检测到时，这里的FileFound事件就被激发。但我们还需要在使用EXE程序中添加这个事件的添加代码。 在objFileCheck_FileFound事件中添加下列代码： RaiseEvent FileFound(objFileCheck.Filename) 这就是我们的全部代码。 当程序员使用该类时，都可以文件名为参数调用MonitorFile方法，然后表单中的计时器被引发，每隔60秒钟检测一下文件，若该文件被查找到，则激发FileCheck类中的事件，该事件又激发相关的应用程序中的另一个事件，用来通知程序员，该文件已被找到。 明白了吗？让我们试试看吧！ |
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）