в 15:30, 26 мая 2010

2010-05-26T15:30:47Z

Admin: 1 версия

2010-05-26T11:53:53Z

1 версия

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

==Define and use control==



<source lang="csharp">
<%@ Register
TagPrefix="My"
TagName="ZipCodeLookUp"
Src=".\ZipCodeLookUp.ascx"
%>
<script runat=server>
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
lblMessage.Text = "You selected " _
& ZipCode1.City & ", " _
& ZipCode1.State & " " _
& ZipCode1.ZipCode
End Sub
</script>
<html>
<BODY>
<form runat="server">
<Font Face="Tahoma">
<My:ZipCodeLookUp
id="ZipCode1"
runat="server"
/>
<BR>
<asp:Label
id="lblMessage"
runat="server"
Font-Bold="True"
/>
<BR><BR>
<asp:button
id="butOK"
text="OK"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</Font>
</form>
</body>
</html>

<%-- ZipCodeLookUp.ascx
<script language="VB" runat="server">
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
lblCity.Text = "Albuquerque"
lblState.Text = "New Mexico"
End If
End Sub
Sub ZipCodeChanged(sender As Object, e As EventArgs)
If ddlZipCode.SelectedItem.Value = "87112" Then
lblCity.Text = "Albuquerque"
lblState.Text = "New Mexico"
ElseIf ddlZipCode.SelectedItem.Value = "08520" Then
lblCity.Text = "Hightstown"
lblState.Text = "New Jersey"
Else
lblCity.Text = "Indianapolis"
lblState.Text = "Indiana"
End If
End Sub
Public ReadOnly Property City() As String
Get
City = lblCity.Text
End Get
End Property
Public ReadOnly Property State() As String
Get
State = lblState.Text
End Get
End Property
Public ReadOnly Property ZipCode() As String
Get
ZipCode = ddlZipCode.SelectedItem.Text
End Get
End Property
</script>
<Table style="font: 10pt verdana;border-width:1;border-style:solid;border-color:black;" cellspacing="15">
<TR>
<TD><B>Select Zip Code: </B></TD>
<TD>
<ASP:DropDownList
id="ddlZipCode"
runat=server
AutoPostBack=True
OnSelectedIndexChanged="ZipCodeChanged"
>
<asp:ListItem Value="87112" Selected="True">87112</asp:ListItem>
<asp:ListItem Value="08520">08520</asp:ListItem>
<asp:ListItem Value="46311">46311</asp:ListItem>
</ASP:DropDownList>
</TD>
</TR>
<TR>
<TD><B>City: </B></TD>
<TD>
<ASP:Label
id="lblCity"
runat="server"
/>
</TD>
</TR>
<TR>
<TD><B>State: </B></TD>
<TD>
<ASP:Label
id="lblState"
runat="server"
/>
</TD>
</TR>
</Table>
--%>

</source>

==Simplest user control (VB.net)==



<source lang="csharp">
<%@ Page Language="VB" %>
<%@ Register TagPrefix="MyTag" TagName="SimpleControl" Src="SimpleUserControl.ascx" %>
<html>
<head>
<title>Simple User control Example</title>
</head>
<body>
<form runat="server">
<p>
<MyTag:SimpleControl id="MySimpleControl" runat="server" />
and I"m text in an ASPX page.
</p>
</form>
</body>
</html>
<%--SimpleUserControl.ascx
<%@ Control Language="vb" %>
<b> Hello, I"m a user control, </b>

--%>

</source>

==User control: login==



<source lang="csharp">
<%@ Register
TagPrefix="My"
TagName="LogInControl"
Src=".\LogInControl.ascx"
%>
<script runat=server>
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
If LogIn1.IsValid Then
lblMessage.Text = "You are logged in!"
Else
lblMessage.Text = "User name and password not found!"
End If
End Sub
</script>
<html>
<BODY TEXT="black" LINK="darkred" VLINK="darkred" ALINK="red" LEFTMARGIN="40" TOPMARGIN="40">
<form runat="server">
<Font Face="Tahoma">
<My:LogInControl
id="LogIn1"
runat="server"
FontName="Arial"
FontBold=True
/>
<BR>
<asp:Label
id="lblMessage"
runat="server"
Font-Bold="True"
/>
<BR><BR>
<asp:button
id="butOK"
text="OK"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</Font>
</form>
</body>
</html>

<%--
<script language="VB" runat="server">
Public ReadOnly Property UserName() As String
Get
UserName = txtUserName.Text
End Get
End Property
Public ReadOnly Property Password() As String
Get
Password = txtPassword.Text
End Get
End Property
Public ReadOnly Property IsValid() As Boolean
Get
If txtUserName.Text = "Secret" _
and txtPassword.Text = "Password" Then
IsValid = True
Else
IsValid = False
End If
End Get
End Property
Public Property FontName() As String
Get
FontName = lbl1.Font.Name
End Get
Set
lbl1.Font.Name = value
lbl2.Font.Name = value
End Set
End Property
Public Property FontBold() As Boolean
Get
FontName = lbl1.Font.Bold
End Get
Set
lbl1.Font.Bold = value
lbl2.Font.Bold = value
End Set
End Property
</script>
<Table style="font: 10pt verdana;border-width:1;border-style:solid;border-color:black;" cellspacing="15">
<TR>
<TD>
<asp:Label
id="lbl1"
runat="server"
Font-Bold="True"
Text="User Name: "
/>
</TD>
<TD>
<asp:TextBox
id="txtUserName"
runat=server
/>
</TD>
</TR>
<TR>
<TD>
<asp:Label
id="lbl2"
runat="server"
Font-Bold="True"
Text="Password: "
/>
</TD>
<TD>
<asp:TextBox
id="txtPassword"
runat=server
TextMode="Password"
/>
</TD>
</TR>
</Table>
--%>

</source>

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

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

в 15:30, 26 мая 2010

Admin: 1 версия