в 15:30, 26 мая 2010

2010-05-26T15:30:47Z

Admin: 1 версия

2010-05-26T11:53:57Z

1 версия

Новая страница

==Header user component (VB.net)==



<source lang="csharp">
<%@ Page Language="vb" %>
<%@ Register TagPrefix="MyTag" TagName="Header" Src="header.ascx" %>
<html>
<head>
<title>User Control Examples</title>
</head>
<body>
<form runat="server" method="post">
<MyTag:Header id="MyHeader" runat="Server" />
<h3>The Multi-Lingual Control Example </h3>
</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>
--%>

</source>

==User control for page header==



<source lang="csharp">

<%@ Page Language="VB" %>
<%@ Register TagPrefix="uc1" TagName="header" Src="Control.ascx" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<title>User Controls</title>
<Script Runat="Server">
Private Sub Page_Load(sender As Object, e As System.EventArgs)
header1.Author = "Snoopy"
FooterLabel.Text = "Rendered " + header1.RenderDate
End Sub "Page_Load
</Script>
</HEAD>
<body>
<form id="dependingdropdowns" method="post" runat="server">
<uc1:header id="header1" runat="server" Title="A Tale of Mystery"></uc1:header>
<p>It was a dark and stormy night.</p>
<hr />
<asp:Label ID="FooterLabel" Runat="server" />
</form>
</body>
</HTML>
File: Control.ascx
<%@ Control Language="vb" %>
<script runat="server">
Private _title As String
Private _author As String
Private _renderDate As DateTime = System.DateTime.Now
Public Property Title() As String
Get
Return _title
End Get
Set
_title = value
End Set
End Property
Public Property Author() As String
Get
Return _author
End Get
Set
_author = value
End Set
End Property
Public ReadOnly Property RenderDate() As DateTime
Get
Return _renderDate
End Get
End Property

Private Sub Page_Load(sender As Object, e As EventArgs)
TitleLabel.Text = Title
AuthorLabel.Text = Author
End Sub
</script>
<h1><asp:Label id="TitleLabel" runat="server" /></h1>
<h3><asp:Label id="AuthorLabel" runat="server" />
</h1>
</source>

← Предыдущая	Версия 15:30, 26 мая 2010
(нет различий)

ASP.Net/User Control and Master Page/Header - История изменений

в 15:30, 26 мая 2010

Admin: 1 версия