ASP.Net/User Control and Master Page/Define Control

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

Define and use control

<%@ 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>
--%>



Simplest user control (VB.net)

<%@ 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>

--%>



User control: login

<%@ 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>
 --%>
Источник — «http://nfex.ru/index.php?title=ASP.Net/User_Control_and_Master_Page/Define_Control&oldid=2436»