<%@ Page Language="vb" %>
<%@ Register TagPrefix="MyTag" TagName="Header" Src="header.ascx" %>
User Control Examples
The Multi-Lingual Control Example
<%-- header.ascx
<%@ Control Language="vb" %>
Welcome to the shop!
Select your Language:
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
--%>