以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何暂停全局代码事件的执行？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78205)
--  作者：黄训良
--  发布时间：2015/12/4 10:15:00
--  [求助]如何暂停全局代码事件的执行？

如何暂停下面的事件：

重命名事件

 

全局代码

 

Public Sub watcher_Renamed(sender As object, e As System.IO.RenamedEventArgs )

  msgbox("File Renamed: Old Name: " + e.OldName + " New Name: " + e.Name)

End Sub

 

在AfterOpenProject 中调用

 

Dim watcher As new System.IO.FileSystemWatcher()
watcher.Path = "d:\\Test"
addhandler watcher.Renamed, addressof watcher_Renamed
watcher.EnableRaisingEvents = True
--  作者：大红袍
--  发布时间：2015/12/4 10:18:00
--  

1、可以取消绑定

 

ReMovehandler watcher.Renamed, addressof watcher_Renamed

 

2、你可以用一个变量做标记

 

If 可用 Then

 

End If
--  作者：黄训良
--  发布时间：2015/12/4 10:57:00
--  
感谢！