Reference two different user control (VB.net) : Register Tag « User Control and Master Page « ASP.Net






  1. ASP.Net
  2. User Control and Master Page
  3. Register Tag

Reference two different user control (VB.net)

<%@ 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" /><br />
    <table>
      <tr>
        <td width="30%">
          <MyTag:FeaturedBooks id="MyFeaturedBooks" runat="server" />
        </td>
      </tr>
    </table>
  </form>
</body>
</html>

<%--header.ascx
<%@ Control Language="vb" %>

<table style="background-color:#cc0033" width="100%" cellpadding="10" cellspacing="0">
    <tr>
        <td width="60%"> <font face="verdana,arial" size="4" color="yellow">
            <asp:label id="WelcomeMessage" runat="Server">Welcome to the shop!</asp:label> </font>
        </td>
        <td width="30%">
            <font face="verdana,arial" size="2" color="lightyellow"> Select your Language:<br />
            <asp:DropDownList id="LanguageList" runat="Server" OnSelectedIndexChanged="DropList_Changed" AutoPostBack="True"/>
            </font>
        </td>
    </tr>
</table>

<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 = "<table><tr><td class='datatablehead'>Today's Featured Books:</td></tr>"

  ResultString += "<tr><td class='datatable'>"
  ResultString += "fake book data"
  ResultString += "</table>"


  Response.Write (ResultString)

%> 


--%>








Related examples in the same category

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