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

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

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"> <My:ZipCodeLookUp 

   id="ZipCode1" 
   runat="server"

/>
<asp:Label 

   id="lblMessage"
   runat="server"
   Font-Bold="True"

/>

<asp:button 

   id="butOK"
   text="OK"
   Type="Submit"
   OnClick="SubmitBtn_Click" 
   runat="server"

/> </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>

Select Zip Code:

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

City:

<ASP:Label 

   id="lblCity" 
   runat="server"

/>

State:

<ASP:Label 

   id="lblState" 
   runat="server"

/>

--%> 

      </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">

<MyTag:SimpleControl id="MySimpleControl" runat="server" /> and I"m text in an ASPX page. 

   </form>

</body> </html> <%--SimpleUserControl.ascx <%@ Control Language="vb" %> Hello, I"m a user control,

--%> 

      </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"> <My:LogInControl 

   id="LogIn1" 
   runat="server"
   FontName="Arial"
   FontBold=True

/>
<asp:Label 

   id="lblMessage"
   runat="server"
   Font-Bold="True"

/>

<asp:button 

   id="butOK"
   text="OK"
   Type="Submit"
   OnClick="SubmitBtn_Click" 
   runat="server"

/> </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>

<asp:Label 

   id="lbl1"
   runat="server"
   Font-Bold="True"
   Text="User Name: "

/>

<asp:TextBox 

   id="txtUserName"
   runat=server

/>

<asp:Label 

   id="lbl2"
   runat="server"
   Font-Bold="True"
   Text="Password: "

/>

<asp:TextBox 

   id="txtPassword"
   runat=server
   TextMode="Password"

/> 

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