Templated User Controls

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • gchq
    New Member
    • Jan 2007
    • 96

    Templated User Controls

    Hi there

    I'm attempting to get a Templated User control to work, but for some reason the Template teg

    [CODE=html]

    <asp:PlaceHolde r ID="PlaceHolder 1" runat="server">

    <DivTemplate>

    <asp:Panel ID="Panel1" runat="server" Width="200" Height="300"></asp:Panel>

    </DivTemplate>
    </asp:PlaceHolder >

    [/CODE]

    Is not being recognised

    Here is the code behind

    [CODE=vbnet]

    Imports System.Componen tModel


    <ParseChildren( True)> _
    <PersistChildre n(False)> _
    Partial Public Class Secure_Admin_Ex pandingPanel

    Inherits System.Web.UI.U serControl
    Implements INamingContaine r
    Private _DivTemplate As ITemplate = Nothing
    Public HeaderText As String = "Header Text"
    Public HeaderLabel As String = "Open"




    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArg s) Handles Me.Load
    Header_Label.Te xt = HeaderLabel
    Header_Text.Inn erHtml = HeaderText
    CollapsiblePane lExtender1.Targ etControlID = "PanelHidde n"
    CollapsiblePane lExtender1.Expa ndControlID = "Header1"
    CollapsiblePane lExtender1.Coll apseControlID = "Header1"
    CollapsiblePane lExtender1.Coll apsed = True
    CollapsiblePane lExtender1.Imag eControlID = "Image1"
    CollapsiblePane lExtender1.Coll apsedImage = "~\Images\plus. gif"
    CollapsiblePane lExtender1.Expa ndedImage = "~\Images\minus .gif"
    CollapsiblePane lExtender1.Text LabelID = "Header_Lab el"
    CollapsiblePane lExtender1.Coll apsedText = "Display"
    CollapsiblePane lExtender1.Expa ndedText = "Hide"
    CollapsiblePane lExtender1.Coll apsedSize = 0
    CollapsiblePane lExtender1.Expa ndedSize = 300
    CollapsiblePane lExtender1.Scro llContents = True
    End Sub



    <PersistenceMod e(PersistenceMo de.InnerPropert y), TemplateContain er(GetType(Temp lateControl))> _
    Public Property DivTemplate() As ITemplate
    Get
    Return _DivTemplate
    End Get
    Set(ByVal value As ITemplate)
    _DivTemplate = value
    End Set
    End Property

    Protected Overrides Sub OnInit(ByVal e As EventArgs)
    MyBase.OnInit(e )
    If _DivTemplate IsNot Nothing Then
    _DivTemplate.In stantiateIn(Div Template)
    End If

    End Sub


    End Class

    [/CODE]

    Any ideas where this might be going wrong?

    Thanks
Working...