ASP.Net/User Control and Master Page/Code Behind
Define page controls in code behind (VB.net)
<source lang="csharp">
<%@ Page
language=VB debug=true src="ControlsInCodeBehind.vb" Inherits="clsControlsInCodeBehind"
%>
<HTML>
<HEAD>
<TITLE>Inheriting Controls in a Code-Behind Files</TITLE>
</HEAD>
<form runat="server">
<asp:label
id="lblMessage1" runat="Server"
/>
<asp:label
id="lblMessage2" runat="Server"
/>
<asp:label
id="lblMessage3" runat="Server"
/>
<asp:textbox
id="txtSample1" runat="Server"
/> </form> </BODY> </HTML> <%-- Imports System Public Class clsControlsInCodeBehind
Inherits System.Web.UI.Page Protected WithEvents txtSample1 As _ System.Web.UI.WebControls.TextBox Protected WithEvents lblMessage1 As _ System.Web.UI.WebControls.Label Protected WithEvents lblMessage2 As _ System.Web.UI.WebControls.Label Protected WithEvents lblMessage3 As _ System.Web.UI.WebControls.Label Private Sub Page_Init(ByVal sender As System.Object, _ ByVal e As System.EventArgs) lblMessage1.Text = "invisible" lblMessage1.Visible = False lblMessage2.Text = Date.Now lblMessage3.Text = "Server Name: " & Server.MachineName txtSample1.MaxLength = 30 txtSample1.Text = "Enter some text!" End Sub
End Class --%>
</source>
User control with code behind (VB.net)
<source lang="csharp">
<%@ 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" />
<MyTag:FeaturedBooks id="MyFeaturedBooks" runat="server" /> |
</form>
</body> </html> <%-- header_CB.ascx <%@ Control inherits="HeaderClass" src="header_CB.vb" %>
<asp:label id="WelcomeMessage" runat="Server"> Welcome to the shop! </asp:label> |
Select your Language: |
--%>
<%-- 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 StringResultString = "
Today"s Featured Books: |
"
ResultString += "fake book data"ResultString += " |
Response.Write (ResultString)
%> --%>
</source>