Define-and-use-control


            <%@ Register 
    TagPrefix="My" 
    TagName="ZipCodeLookUp" 
    Src=".\ZipCodeLookUp.ascx" 
%>

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    lblMessage.Text = "You selected " _
        & ZipCode1.City & ", " _
        & ZipCode1.State & " " _
        & ZipCode1.ZipCode
End Sub





    id="ZipCode1" 
    runat="server"
/>


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



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




<%-- ZipCodeLookUp.ascx

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



Select Zip Code: 

    id="ddlZipCode"
    runat=server
    AutoPostBack=True
    OnSelectedIndexChanged="ZipCodeChanged"
>
    87112
    08520
    46311




City: 

    id="lblCity" 
    runat="server"
/>



State: 

    id="lblState" 
    runat="server"
/>



--%>
User Control And Master Page ASP.Net
