ok let's say you have an application named test.masterPage (c:\inetpub\wwwroot\test.masterPage\)
you will get a dll as test.masterPage.dll
then into your web.config just put this 2 lignes into appSettings section
web.config
<appSettings>
<add key="masterPage.defaultFolder" value="modeles" />
<add key="masterPage.templateFile" value="template.ascx" />
</appSettings>
----------------------------------
into a folder named modeles
template.ascx
<?xml version="1.0" encoding="iso-8859-1"?>
<%@ Control CodeBehind="template.ascx.vb" Inherits="test.masterPage.masterPageMS.template" %>
<%@ Register TagPrefix="ms" namespace="test.masterPage.masterPageMS" assembly="test.masterPage" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='fr'>
<head>
<title><ms:region runat="server" id="region0">Default titre ici</ms:region></title>
</head>
<body>
<form id="frm" method="post" runat="server">
<table border width="100%">
<tr align="middle">
<td colspan="2"><div id="header">This is the Header</div>
</td>
</tr>
<tr>
<td><h3>First arbitrary content area</h3>
<p>
<ms:region runat="server" id="region1">Default region1 content</ms:region></p>
</td>
<td><h3>Second arbitrary content area
</h3>
<p>
<ms:region runat="server" id="region2" /></p>
</td>
</tr>
<tr>
<td colspan="2"><h3>Third arbitrary content area
</h3>
<p>
<ms:region runat="server" id="region3">Default region3 content. It is displayed if the page does not define content for the region.</ms:region></p>
</td>
</tr>
<tr align="middle">
<td colspan="2"><div id="footer">This is the Footer</div>
</td>
</tr>
</table>
</form>
</body>
</html>
template.ascx.vb
Namespace masterPageMS
Public MustInherit Class template : Inherits UserControl
Protected WithEvents region0 As Region
Protected WithEvents region1 As Region
Protected WithEvents region2 As Region
Protected WithEvents region3 As Region
#Region " Web Form Designer Generated Code "
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
End Namespace
---------------------------------------
at the root of your application :
default.aspx
<%@ Page Codebehind="default.aspx.vb" Inherits="test.masterPage.masterPageMS.mainPage" %>
<%@ Register TagPrefix="ms" namespace="test.masterPage.masterPageMS" assembly="test.masterPage" %>
<ms:contentContainer id="cc" runat="server" masterPageFile="">
<ms:content id="region0" runat="server" />
<ms:content id="region1" runat="server">
<a href="MasterPages.htm" runat="server">Relative link test</a><br />
<asp:textbox id="tb1" runat="server" />
<asp:button text="Capitalize" onclick="ClickedCapitalize" runat="server" />
<asp:literal id="capitalized" runat="server" />
</ms:content>
<ms:content id="region2" runat="server">
<asp:textbox id="tb2" runat="server" /><asp:button text="Say hello" onclick="SayHello" runat="server" />
Hello <asp:literal id="name" text="[name goes here]" runat="server" />!
</ms:content>
</ms:contentContainer>
default.aspx.vb
Namespace masterPageMS
Public Class mainPage : Inherits Page
#Region " Controles "
Protected WithEvents cc As contentContainer
Protected WithEvents region0 As Content
Protected WithEvents region1 As Content
Protected WithEvents region2 As Content
Protected WithEvents tb1 As System.Web.UI.WebControls.TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents capitalized As System.Web.UI.WebControls.Literal
Protected WithEvents tb2 As System.Web.UI.WebControls.TextBox
Protected WithEvents Button2 As System.Web.UI.WebControls.Button
Protected WithEvents name As System.Web.UI.WebControls.Literal
#End Region
#Region " Web Form Designer "
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Init
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
region0.Controls.Add(New LiteralControl("mon nouveau titre"))
region1.Controls.Clear()
region1.Controls.Add(New LiteralControl("titre ici"))
End Sub
#Region " Methodes "
Sub ClickedCapitalize(ByVal o As Object, ByVal e As EventArgs)
capitalized.Text = Server.HtmlEncode(tb1.Text.ToUpper())
End Sub
Sub SayHello(ByVal o As Object, ByVal e As EventArgs)
name.Text = Server.HtmlEncode(tb2.Text)
End Sub
#End Region
End Class
End Namespace
------------------------
then your masterPage.vb
Namespace masterPageMS
Public Class contentContainer : Inherits PlaceHolder
Implements INamingContainer
#Region " variables "
Private _contents As New ArrayList()
#End Region
#Region " proprietes "
Public Property masterPageFile() As String
Get
Return CStr(ViewState("masterPageFile"))
End Get
Set(ByVal Value As String)
Dim f, s As String
f = "~/" + ConfigurationSettings.AppSettings("masterPage.defaultFolder") + "/"
If f = "" Then
f = "~/modeles/"
End If
If Value <> "" Then
s = Value
Else
s = ConfigurationSettings.AppSettings("masterPage.templateFile")
End If
ViewState("masterPageFile") = f + s
ChildControlsCreated = False
End Set
End Property
#End Region
#Region " constructeurs "
Sub New()
MyBase.new()
End Sub
Protected Overrides Sub AddParsedSubObject(ByVal obj As Object)
If TypeOf obj Is Content Then
_contents.Add(obj)
Else
Throw New Exception("le controle conteneur ne peut contenir que des controles")
End If
End Sub 'AddParsedSubObject
Protected Overrides Sub OnInit(ByVal e As EventArgs)
If masterPageFile Is Nothing Or masterPageFile = "" Then
Throw New Exception("Il faut definir les proprietes du masterPageFile")
End If
Dim masterPage As Control = Page.LoadControl(masterPageFile)
Dim content As content
For Each content In _contents
' Look for a region with the same ID as the content control
Dim [region] As Control = masterPage.FindControl(content.ID)
If [region] Is Nothing Then
Throw New Exception("region non trouvee pour l' ID '" + content.ID + "'")
End If
' Set the Content control's TemplateSourceDirectory to be the one from the
' page. Otherwise, it would end up using the one from the Master Pages user control, which would be incorrect.
content._templateSourceDirectory = TemplateSourceDirectory
' Clear out any default content that the region might have
[region].Controls.Clear()
' Move the content control into its designated region
[region].Controls.Add(content)
Next content
' Add the master page to the content container control
Controls.Add(masterPage)
MyBase.OnInit(e)
End Sub
#End Region
End Class 'contentContainer
'/ The control marks a place holder for content in a master page.
Public Class [Region] : Inherits PlaceHolder
Implements INamingContainer
End Class '[Region]
Public Class Content : Inherits PlaceHolder
friend _templateSourceDirectory As String
Public Overrides ReadOnly Property templateSourceDirectory() As String
Get
Return _templateSourceDirectory
End Get
End Property
End Class 'Content
End Namespace
-------------------------
you must just compile the dll including the 3 files
masterpage.vb
modeles/template.ascx.vb
default.aspx.vb