controltrace.vb

来自「asp.net技术内幕的书配源码」· VB 代码 · 共 26 行

Imports System
Imports System.Web
Imports System.Web.UI

Namespace myControls

Public Class ControlTrace
Inherits Control

Overrides Protected Sub OnLoad( e As EventArgs )
  Context.Trace.Warn( "Executing OnLoad Method!" )
End Sub

Overrides Protected Sub OnPreRender( e As EventArgs )
  Context.Trace.Warn( "Executing OnPreRender Method!" )
End Sub

Overrides Protected Sub Render( objTextWriter As HtmlTextWriter )
  Context.Trace.Warn( "Executing Render Method!" )
  objTextWriter.WriteLine( "Hello World!" )
End Sub

End Class

End Namespace