customcontrol3.vb

来自「asp入门到精通的源代码」· VB 代码 · 共 42 行

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

Namespace MyCustomControls
   Public Class CustomControl3 : Inherits Control : Implements IPostBackDataHandler
      public Event TextChanged(obj as object, e as eventargs)
      protected sub OnTextChanged(e as EventArgs)
         RaiseEvent TextChanged(Me, e)
      end sub
      
      Public Function LoadPostData(PostDataKey As String, Values As NameValueCollection) As Boolean Implements IPostBackDataHandler.LoadPostData
         dim strOldValue as String = Me.Message
         dim strNewValue as String = Values(postDataKey)
         if not strOldValue = strNewValue
            Me.Message = strNewValue
            return true
         end if
         return false
      End Function
      
      Public Sub RaisePostDataChangedEvent() Implements IPostBackDataHandler.RaisePostDataChangedEvent
         OnTextChanged(EventArgs.Empty)
      end sub
      
      public property Message as string
         Get
            Message = ViewState("Message").ToString
         End Get
         Set
            ViewState("Message") = value
         End Set
      end property
      
      Protected Overrides Sub Render(Output as HtmlTextWriter)
         Output.Write("<input name=" & Me.UniqueID & " type=text value=""" & Me.Message & """>")
      End Sub
   End Class

End Namespace