ASP.Net/User Control and Master Page/Header
Содержание
Header user component (VB.net)
<source lang="csharp">
<%@ Page Language="vb" %> <%@ Register TagPrefix="MyTag" TagName="Header" Src="header.ascx" %> <html> <head>
<title>User Control Examples</title>
</head> <body>
<form runat="server" method="post"> <MyTag:Header id="MyHeader" runat="Server" />
The Multi-Lingual Control Example
</form>
</body> </html> <%-- header.ascx <%@ Control Language="vb" %>
<asp:label id="WelcomeMessage" runat="Server">Welcome to the shop!</asp:label> |
Select your Language: |
<script runat="server">
Private Languages As New Hashtable() Public Sub Page_Load() Languages.Add("English", "Hello, and welcome to the shop") Languages.Add("French", "Bonjour, et bienvenue au magasin") Languages.Add("Spanish", "Buenas Dias, e bienvenido a la tienda") Languages.Add("German", "Guten Tag, und wilkommen ins geschaeft") If Not Page.IsPostback LanguageList.Datasource = Languages.Keys Page.DataBind() End If End Sub Public Sub DropList_Changed(Sender As Object, E As EventArgs) WelcomeMessage.text = Languages(Languagelist.SelectedItem.Text) End Sub
</script> --%>
</source>
User control for page header
<source lang="csharp">
<%@ Page Language="VB" %> <%@ Register TagPrefix="uc1" TagName="header" Src="Control.ascx" %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" > <HTML>
<HEAD> <title>User Controls</title> <Script Runat="Server"> Private Sub Page_Load(sender As Object, e As System.EventArgs) header1.Author = "Snoopy" FooterLabel.Text = "Rendered " + header1.RenderDate End Sub "Page_Load </Script> </HEAD> <body> <form id="dependingdropdowns" method="post" runat="server"> <uc1:header id="header1" runat="server" Title="A Tale of Mystery"></uc1:header>
It was a dark and stormy night.
<asp:Label ID="FooterLabel" Runat="server" /> </form> </body>
</HTML> File: Control.ascx <%@ Control Language="vb" %> <script runat="server"> Private _title As String Private _author As String Private _renderDate As DateTime = System.DateTime.Now Public Property Title() As String
Get Return _title End Get Set _title = value End Set
End Property Public Property Author() As String
Get Return _author End Get Set _author = value End Set
End Property Public ReadOnly Property RenderDate() As DateTime
Get Return _renderDate End Get
End Property
Private Sub Page_Load(sender As Object, e As EventArgs)
TitleLabel.Text = Title AuthorLabel.Text = Author
End Sub </script>