Mega Code Archive

 

Categories / ASP.Net Tutorial / Custom Controls

 

Rendering HTML tag attributes (VB)

Imports System.ComponentModel Imports System.Web.UI <DefaultProperty("Text"), _  ToolboxData("<{0}:WebCustomControl1 runat=server></{0}:WebCustomControl1>")>  Public Class WebCustomControl1     Inherits System.Web.UI.WebControls.WebControl     Dim _text As String     <Bindable(True), Category("Appearance"), DefaultValue("")> _     Property [Text]() As String         Get             Return _text         End Get         Set(ByVal Value As String)             _text = Value         End Set     End Property     Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)         output.RenderBeginTag(HtmlTextWriterTag.Div)         output.AddAttribute(HtmlTextWriterAttribute.Type, "text")         output.AddAttribute(HtmlTextWriterAttribute.Id, Me.ClientID)         output.AddAttribute(HtmlTextWriterAttribute.Name, Me.ClientID)         output.AddAttribute(HtmlTextWriterAttribute.Value, Me.Text)         output.RenderBeginTag(HtmlTextWriterTag.Input)         output.RenderEndTag()         output.RenderEndTag()     End Sub End Class