Applying the TypeConverter attribute to a property (VB) : TypeConverter « Custom Controls « ASP.NET Tutorial

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

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
    Dim _bookid As Guid

    <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

    <Bindable(True)> _
    <Category("Appearance")> _
    <DefaultValue("")> _
    <TypeConverter(GetType(GuidConverter))> _
    Property BookId() As System.Guid
        Get
            Return _bookid
        End Get

        Set(ByVal Value As System.Guid)
            _bookid = Value
        End Set
    End Property


    Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
        output.RenderBeginTag(HtmlTextWriterTag.Input)
        output.RenderEndTag()
    End Sub

End Class