ASP.NET入門教程 11.6.2 存儲首選項[5]

注意存在特定的關鍵字Implements用於指定這個特殊的Dispose（）方法實現必需的IHttpModuleDispose方法如同所有HttpModules所需要的那樣現在將其與Init（）方法中的代碼進行比較

Public Sub Init(ByVal context As SystemWebHttpApplication) Implements SystemWebIHttpModuleInit

AddHandler contextPreRequestHandlerExecute New EventHandler(AddressOf app_PreRequestHandlerExecute)

End Sub

在這個方法的頂部是Implements語句（由於頁面寬度約束在打印出來的書籍中該語句換行到下一行）在這種情況中的Init（）方法實現必需的IHttpModuleInit方法

在這兒該方法自身中的代碼最初看起來稍微有點復雜只有一行需要考慮該行聲明一個新的事件處理程序每次當前的上下文處於請求生存期中的PreRequestHandlerExecute階段時運行該事件處理程序以純英語的方式來看這是相當早期的請求階段！這行代碼意味著每次適當的事件激活時可以添加將進行處理的事件處理程序這個事件處理程序是在代碼中聲明的最後一個方法

Private Sub app_PreRequestHandlerExecute(ByVal Sender As Object ByVal E As EventArgs)

HttpContextCurrentTraceWrite(ThemeModule app_PreRequestHandlerExecute)

Dim p As Page = TryCast(HttpContextCurrentHandler Page)

If p IsNot Nothing Then

Dim pb As ProfileCommon = DirectCast(HttpContextCurrentProfile ProfileCommon)

pTheme = pbTheme

End If

End Sub

End Class

End Namespace

[] [] [] [] [] []

From:http://tw.wingwit.com/Article/program/net/201311/15601.html