Adding PostBack capabilities to a server control (VB) : PostBack « Custom Controls « ASP.NET Tutorial

1. ASP.NET Tutorial
2. Custom Controls
3. PostBack

Imports System.ComponentModel
Imports System.Web.UI

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

    Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
        Dim p As New PostBackOptions(Me)

        output.AddAttribute(HtmlTextWriterAttribute.Onclick, _
            Page.ClientScript.GetPostBackEventReference(p))

        output.AddAttribute(HtmlTextWriterAttribute.Value, "My Button")
        output.AddAttribute(HtmlTextWriterAttribute.Id, Me.ClientID)
        output.AddAttribute(HtmlTextWriterAttribute.Name, Me.ClientID)
        output.RenderBeginTag(HtmlTextWriterTag.Button)
        output.RenderEndTag()
    End Sub
End Class