ASP.Net/User Control and Master Page/Register Tag — различия между версиями

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

Текущая версия на 14:53, 26 мая 2010

Give one user component different tag names (VB.net)

   <source lang="csharp">

<%@ Page Language="vb" %> <%@ Register TagPrefix="MyTag" TagName="Header" Src="header.ascx" %> <%@ Register TagPrefix="MyTag" TagName="Header1" 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

       <MyTag:Header1 id="MyHeader1" runat="Server" />
   </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>
   
  


Reference two different user control (VB.net)

   <source lang="csharp">

<%@ Page Language="vb" %> <%@ Register TagPrefix="MyTag" TagName="Header" Src="header.ascx" %> <%@ Register TagPrefix="MyTag" TagName="FeaturedBooks" Src="FeaturedBooks.ascx" %> <html> <head>

 <title>User Control Examples</title>
 <link rel="stylesheet" type="text/css" href="style.css">

</head> <body>

 <form runat="server" method="post">
   <MyTag:Header id="MyHeader" runat="Server" />
         <MyTag:FeaturedBooks id="MyFeaturedBooks" runat="server" />
 </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> --%> <%--

<%@ import Namespace="System.Data" %> <%

 Dim ResultString as String
ResultString = "" ResultString += "
Today"s Featured Books:
"
 ResultString += "fake book data"
ResultString += "
"
 Response.Write (ResultString)

%>

--%>

      </source>