class1.vb

對c#初學者參考..為課題asp.net 2.0教材代碼

Imports System.ComponentModel
Imports System.Web.UI

<DefaultProperty("Text")> _
<ToolboxData("<{0}:[WebCustomControl5] runat=server></{0}:[WebCustomControl5]>")> _
Public Class [WebCustomControl5]
    Inherits System.Web.UI.WebControls.WebControl

    Dim s As String
    Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
        Page.RequiresControlState(Me)
        MyBase.OnInit(e)
    End Sub

    Protected Overrides Sub LoadControlState(ByVal savedState As Object)
        s = CStr(savedState)
    End Sub

    Protected Overrides Function SaveControlState() As Object
        Return CType("FOO", Object)
    End Function

    Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
        output.Write("Control State: " & s)
    End Sub

End Class