Custom Controls ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. Custom Controls
  4. Adding a templated control to a Web page (VB)
<%@ Page Language="VB" %>
<%@ Register Assembly="WebControlLibrary1" Namespace="WebControlLibrary1" 
    TagPrefix="cc1" %>

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Me.TemplatedControl1.DataBind()
    End Sub



    Templated Web Controls


    
    

                    ID=" TemplatedControl1" runat="server">
            The user '<%# Container.Name %>' 
                has a message for you: "<%#Container.Text%>"
            
                
    

    


File: TemplatedControl.vb
Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls
 _
")> _
Public Class TemplatedControl
    Inherits System.Web.UI.WebControls.WebControl
    Private _name As String
    Private _text As String
    Private _message As Message
    Private _messageTemplate As ITemplate
     Public ReadOnly Property Message() As Message
        Get
            EnsureChildControls()
            Return _message
        End Get
    End Property
            TemplateContainer(GetType(Message))> _
    Public Property MessageTemplate() As ITemplate
        Get
            Return _messageTemplate
        End Get
        Set(ByVal value As ITemplate)
            _messageTemplate = value
        End Set
    End Property
     Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property
     Public Property Text() As String
        Get
            Return _text
        End Get
        Set(ByVal value As String)
            _text = value
        End Set
    End Property
    Public Overrides Sub DataBind()
        CreateChildControls()
        ChildControlsCreated = True
        MyBase.DataBind()
    End Sub
    Protected Overrides Sub CreateChildControls()
        Me.Controls.Clear()
        _message = New Message(Name, Text)
        Dim template As ITemplate = MessageTemplate
        template.InstantiateIn(_message)
        Controls.Add(_message)
    End Sub
End Class