User control with code behind (VB.net)

<%@ Page Language="vb" %>
<%@ Register TagPrefix="MyTag" TagName="Header" Src="header_CB.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_CB.ascx
<%@ Control inherits="HeaderClass" src="header_CB.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>


--%>


<%-- header_CB.vb
Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Collections

Public Class HeaderClass : Inherits UserControl
    
  Private Languages As New Hashtable()
  Public LanguageList As DropDownList
  Public WelcomeMessage As Label
    
  Public Sub Page_Load()
    
    Languages.Add("English", "Hello, and welcome to the shop")
    Languages.Add("French", "Bonjour, et bienvenue a le 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

End Class

--%>


<%-- FeaturedBooks.ascx

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

Define page controls in code behind (VB.net)
User control with code behind (VB.net) : Code Behind « User Control and Master Page « ASP.Net

Related examples in the same category
