再从"Procedure"下拉列表框中选择"FileFound"；
Private Sub objFileCheck_FileFound ( )
RaiseEvent FileFound ( objFileCheck.Filename)
End Sub
显然，当文件检测到时，这里的FileFound事件就被激发。但我们还需要在使用EXE程序中添加这个事件的添加代码。
在objFileCheck_FileFound事件中添加下列代码：
RaiseEvent FileFound(objFileCheck.Filename)
这就是我们的全部代码。
当程序员使用该类时，都可以文件名为参数调用MonitorFile方法，然后表单中的计时器被引发，每隔60秒钟检测一下文件，若该文件被查找到，则激发FileCheck类中的事件，该事件又激发相关的应用程序中的另一个事件，用来通知程序员，该文件已被找到。
明白了吗？让我们试试看吧！
上一篇： VB COM基础讲座之ActiveX EXEs
下一篇： Visual Basic COM基础讲座之兼容性
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
