从"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类中的事件，该事件又激发相关的应用程序中的另一个事件，用来通知程序员，该文件已被找到。
明白了吗？让我们试试看吧！进入讨论组讨论。
