bluetextboxpostback.vb

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

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Collections.Specialized

Namespace myControls

Public Class BlueTextBoxPostBack
Inherits Control
Implements IPostBackDataHandler

Public Text As String

Public Function LoadPostData( PostDataKey As String, Values As NameValueCollection) As Boolean _
Implements IPostBackDataHandler.LoadPostData
  Text =  Values( Me.UniqueID )
  Return False
End Function

Public Sub RaisePostDataChangedEvent() _
Implements IPostBackDataHandler.RaisePostDataChangedEvent
  ' Raise Change Event
End Sub


Protected Overrides Sub Render( objTextWriter As HtmlTextWriter )
  objTextWriter.AddAttribute( "Name", Me.UniqueID )
  objTextWriter.AddStyleAttribute( "background-color", "Blue" )
  objTextWriter.AddStyleAttribute( "color", "Yellow" )
  objTextWriter.AddAttribute( "value", Text )
  objTextWriter.RenderBeginTag( "input" )
  objTextWriter.RenderEndTag
End Sub

End Class

End Namespace