ASP.Net/User Control and Master Page/Code Behind

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

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:

     <asp:DropDownList id="LanguageList" runat="Server" 
                 OnSelectedIndexChanged="DropList_Changed" AutoPostBack="True"/>

--%>

<%-- 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 = "" ResultString += "
Today"s Featured Books:
" 
 ResultString += "fake book data"
ResultString += "
" 
 Response.Write (ResultString)

%> --%> 

      </source>
Источник — «http://nfex.ru/index.php?title=ASP.Net/User_Control_and_Master_Page/Code_Behind&oldid=2428»