FileSystemWatcher.WaitForChanged 是阻塞的(同步的)。绝对不需要空闲循环,尤其是因为您正在处理事件。注意 EnableRaisingEvents 默认为 true。因此,您所要做的就是将组件添加到表单中。没有空闲循环。没有线程,因为组件负责处理。
我了解到您正在使用控制台应用程序。因此,您可以创建以下循环。同样,不需要空闲循环。该组件负责所有细节。
Do
Dim i As WaitForChangedResult = Me.FileSystemWatcher1.WaitForChanged(WatcherChangeTypes.All, 1000)
Loop Until fCancel
[更新]“注意 EnableRaisingEvents 默认为 true。” 根据 Microsoft 源代码,只有将 FileSystemWatcher 组件放到设计器上时才适用。如下所示:
/// <internalonly/>
/// <devdoc>
/// </devdoc>
[Browsable(false)]
public override ISite Site {
get {
return base.Site;
}
set {
base.Site = value;
// set EnableRaisingEvents to true at design time so the user
// doesn't have to manually. We can't do this in
// the constructor because in code it should
// default to false.
if (Site != null && Site.DesignMode)
EnableRaisingEvents = true;
}
}
[更新] 在语句WaitForChanged
之前和之后调用设置 EnableRaisingEvents。System.Threading.Monitor.Wait