從"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類中的事件，該事件又激發相關的應用程序中的另一個事件，用來通知程序員，該文件已被找到。
明白了嗎？讓我們試試看吧！進入討論組討論。
