ASP.Net/User Control and Master Page/Header

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

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:
<asp:DropDownList id="LanguageList" runat="Server" OnSelectedIndexChanged="DropList_Changed" AutoPostBack="True"/>

<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>

<asp:Label id="TitleLabel" runat="server" />

<asp:Label id="AuthorLabel" runat="server" /> </h1> </source>