Namespace masterPage
Public Class container : Inherits HtmlContainerControl
#Region " variables "
Private _defaultFile As String
Private _defaultContent As String
Private template As Control = Nothing
Private defaults As New contentRegion()
Private contents As New ArrayList()
#End Region
#Region " proprietes "
<Category("MasterPage"), Description("chemin de l'User Control")> _
Public Property defaultFile() As String
Get
If (_defaultFile.Equals("")) Or (_defaultFile Is Nothing) Then
Return getConfig("masterPage.defaultFile")
Else
Return _defaultFile
End If
End Get
Set(ByVal Value As String)
_defaultFile = Value
End Set
End Property
Private ReadOnly Property defaultFolder() As String
Get
Dim s As String
s = getConfig("masterPage.defaultFolder")
If s = "" Then s = "~/modeles/"
Return s
End Get
End Property
Private ReadOnly Property templateFile() As String
Get
Return defaultFolder + defaultFile
End Get
End Property
<Category("MasterPage"), Description("Control ID for Default Content")> _
Public Property defaultContent() As String
Get
If (_defaultContent.Equals("")) Or (_defaultContent Is Nothing) Then
Return getConfig("masterPage.defaultContent")
Else
Return _defaultContent
End If
End Get
Set(ByVal Value As String)
_defaultContent = Value
End Set
End Property
#End Region
#Region " constructeur "
Public Function getConfig(ByVal key As String) As String
Dim nameValue As NameValueCollection
nameValue = CType(ConfigurationSettings.GetConfig("parametres/global"), NameValueCollection)
Return (nameValue(key))
End Function
Public Sub New()
MyBase.new()
If _defaultContent Is Nothing Then
_defaultContent = "Content"
End If
End Sub 'New
Protected Overrides Sub RenderBeginTag(ByVal w As HtmlTextWriter)
End Sub 'RenderBeginTag
Protected Overrides Sub RenderEndTag(ByVal w As HtmlTextWriter)
End Sub 'RenderEndTag
Protected Overrides Sub AddParsedSubObject(ByVal obj As Object)
If TypeOf obj Is contentRegion Then
Me.contents.Add(obj)
Else
Me.defaults.Controls.Add(CType(obj, Control))
End If
End Sub 'AddParsedSubObject
Protected Overrides Sub OnInit(ByVal e As EventArgs)
Me.buildMasterPage()
Me.buildContents()
MyBase.OnInit(e)
End Sub 'OnInit
#End Region
#Region " methodes "
Private Sub buildMasterPage()
If Me.defaultFile = "" Then
Throw New Exception("defaultFile Property for MasterPage must be Defined")
End If
Me.template = Me.Page.LoadControl(Me.templateFile)
Me.template.ID = Me.ID + "_template"
Dim count As Integer = Me.template.Controls.Count
Dim index As Integer
For index = 0 To count - 1
Dim control As control = Me.template.Controls(0)
Me.template.Controls.Remove(control)
If control.Visible Then
Me.Controls.Add(control)
End If
Next index
Me.Controls.AddAt(0, Me.template)
End Sub 'BuildMasterPage
Private Sub buildContents()
If Me.defaults.HasControls() Then
Me.defaults.ID = _defaultContent
Me.contents.Add(Me.defaults)
End If
Dim content As contentRegion
For Each content In Me.contents
Dim [region] As control = Me.FindControl(content.ID)
If [region] Is Nothing Or Not TypeOf [region] Is contentRegion Then
Throw New Exception("ContentRegion with ID '" + content.ID + "' must be Defined")
End If
[region].Controls.Clear()
Dim count As Integer = content.Controls.Count
Dim index As Integer
For index = 0 To count - 1
Dim control As control = content.Controls(0)
content.Controls.Remove(control)
[region].Controls.Add(control)
Next index
Next content
End Sub 'BuildContents
#End Region
End Class 'container
Public Class contentRegion : Inherits Panel
Public Sub New()
MyBase.new()
End Sub 'New
Public Overrides Sub RenderBeginTag(ByVal w As HtmlTextWriter)
End Sub 'RenderBeginTag
Public Overrides Sub RenderEndTag(ByVal w As HtmlTextWriter)
End Sub 'RenderEndTag
End Class 'contentRegion
End Namespace
----------------------------
only the getConfig method use personal section of web.config file
you can remove this method
and use configurationSetting.AppSetting("")
and you need 2 or 3 keys (depending if you want defaultFolder as readonLy or not)
<add key="masterPage.defaultFolder" value="~/modeles/" />
<add key="masterPage.defaultFile" value="template.ascx" />
<add key="masterPage.defaultContent" value="content" />
into your ascx file :
<%@ Register TagPrefix="any" Namespace="angiras.webTemplates.masterPage" Assembly="angiras.webTemplates" %>