講述關于VB.NET事件處理程序
VB.NET經過長時間的發展，很多用戶都很了解它了，這里我就VB.NET事件處理程序發表一下個人理解，和大家討論討論。
文件系統監控
我曾經遇到過一些應用程序，需要等待和處理某個特定目錄中的文件-例如，將數據從文件導入到數據庫中去的應用程序。數據文件可以從某個大型機上下載，或者被轉移到某個輸入目錄中，該應用程序將它們導入到數據庫中。你不用經常地輪詢該目錄檢查是否有新文件，可以等待生成新文件的通知。你可以在Visual Basic 6.0中使用Win32 API來做到這一點，而在Visual Basic .NET中你可以使用.NET Framework類來做這項工作。但是在.NET中實施文件監控與在.NET中完成其他工作的方法更加一致，因此學習曲線是最小的。
你可以使用System.IO.FileSystemWatcher .NET類對文件系統進行監視。它提供了一些屬性，允許你設置監控的路徑，指定是對文件還是子目錄層次的變化感興趣。System.IO.FileSystemWatcher還允許你指定需要監控的文件名和文件類型(例如，*.xml是指監控所有XML文件的變化)。最后，你可以指定感興趣的變化類型-例如，只對新建文件，文件屬性的變化或文件大小的變化感興趣。
在你設置了監控內容后，你需要鉤住用于感興趣的各種事件的VB.NET事件處理程序。FileSystemWatcher事件有Changed、Created、Deleted、Error和Renamed。要處理某個事件，首先你需要編寫一個與FileSystemEventHandler代理相同聲明的VB.NET事件處理程序，然后將這個處理程序添加到FileSystemWatcher類中。這個基于代理的體系結構允許你為同一個事件添加多個處理程序，或者對于多個事件使用同一個處理程序-而你不能使用Visual Basic 6.0做到這一點。
- 注釋：System.IO contains the
- 注釋：file monitoring classes and types
- Imports System.IO
- Module
- Module1
- Sub Main()
- 注釋：FileSystemWatcher does the real work
- Dim fw As New FileSystemWatcher()
- 注釋：WaitForChangedResult is what you
- 注釋：get back when a change occurs
- Dim result As WaitForChangedResult
- 注釋：set the path to monitor
- fw.Path = "C:WINNT"
- 注釋：tell it whether to watch files or directories
- fw.Target = WatcherTarget.File
- 注釋：tell it whether to include subdirs
- fw.IncludeSubdirectories = False
- 注釋：hook up handlers AddHandler fw.Created,New FileSystemEventHandler(AddressOf OnFileNotify)注釋：enable the watcher
- fw.Enabled = True DoConsole.WriteLine("Beginning to monitor")
- 注釋：this is where we actually wait
- 注釋：waiting blocks execution for the specified timeoutresult = fw.WaitForChanged(WatcherChangeTypes.All, 60000)Console.WriteLine("Hit Enter to continue q to quit")
- Loop While (Console.ReadLine <> "q")End Sub
- 注釋：This is the delegate that gets
- 注釋：called when a file is created
- Public Sub OnFileNotify(ByVal source As Object, ByVal e As FileSystemEventArgs)Console.WriteLine( "Notification received for file , change type is ", _e.FullPath, e.ChangeType) End SubEnd Module
你可以創建一個FileSystemWatcher，然后設置它的屬性。你可以使用AddHandler將FileSystemEventHandler代理與各種FileSystemWatcher事件關聯起來，如Created。然后你就可以啟用FileSystemWatcher，然后調用WaitForChanged。該調用將在變化發生或達到指定的超時時返回。
創建Windows服務
當你要創建一個Windows服務時，你必須使用Visual C++或在Visual Basic中使用srvany.exe或第三方工具來創建該服務。任何一種方法，你都沒有在Visual Basic中編寫自己的服務，你只是正在Visual Basic運行時的外部添加更多從屬組件。 如果你使用C++或C語言，在不使用活動模版庫(Active Template Library)的情況下從頭編寫一個Windows服務，你將不得不編寫一小段代碼來協調你的服務與服務控制器(Service Control Manager，SCM)之間的往來通信，SCM用來處理服務的啟動、暫停、繼續和停止。.NET Framework通過提供System.ServiceProcess.ServiceBase類，使得實現一個服務變得很容易。要編寫一個服務，你可以從這個類繼承，重載它的某些方法，設置它的屬性，然后就大功告成了！
你可能要重載的一些方法包括：OnStart、OnStop、OnPause和OnContinue。通常你需要載啟動工作線程(worker thread)的位置重載OnStart，在需要取消這個工作線程的位置重載OnStop。在你創建了自己的服務后，你就可以使用SCM安裝和注冊這個服務。這是另一個領域，.NET Framework中的基類提供了大部分所需的工作。你可以創建一個繼承自System.Configuration.Install.Installer的類，從System.ServiceProcess.ServiceInstaller中例示對象，然后設置它的屬性，如服務啟動模式和服務名稱。這使得.NET安裝實用工具installUtil.exe能夠安裝(和刪除)你的服務，而你無需編寫額外的代碼。
當你開始使用Visual Studio .NET時，你將會發現Visual Studio .NET使得使用.NET Framework變得更容易。Visual Studio .NET允許你創建Windows服務(擁有安裝程序(installer))，監控文件系統的變化，寫入事件記錄 - 所有都是使用設計器和組件而不是編寫代碼來完成。例如，要將一個安裝程序添加到自己的服務項目中，你只需選中服務設計器避免，然后單擊屬性(Properties)窗口底部的添加安裝程序(Add Installer)。這將添加一個新模塊ProjectInstaller.vb，該模塊包括安裝該服務所需的全部代碼。你可以使用設計器，對安裝選項，如啟動模式進行自定義。
結論
.NET Framework使得你能夠利用Visual Basic .NET，很容易地開發健壯地VB.NET事件處理程序。它使得你可以將重點放在學習一種相容的程序設計模型上，并且使得你可以直接訪問底層的.NET平臺。利用Visual Basic .NET和.NET Framework，你可以使自己的應用程序達到前所未有的水平。
【編輯推薦】
