Custom Controls ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. Custom Controls
  4. Rendering style properties (VB)
Imports System.ComponentModel
Imports System.Web.UI
 ToolboxData("<{0}:WebCustomControl1 runat=server>")> 
Public Class WebCustomControl1
    Inherits System.Web.UI.WebControls.WebControl
    Dim _text As String
     _
    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)
        Me.AddAttributesToRender(output)
        output.RenderBeginTag(HtmlTextWriterTag.Input)
        output.RenderEndTag()
        output.RenderEndTag()
    End Sub
End Class