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
Implements IPostBackEventHandler
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
Public Event Click()
Public Sub OnClick(ByVal args As EventArgs)
RaiseEvent Click()
End Sub
Public Sub RaisePostBackEvent(ByVal eventArgument As String) Implements System.Web.UI.IPostBackEventHandler.RaisePostBackEvent
OnClick(EventArgs.Empty)
End Sub
End Class
|