Clear-textbox-in-a-user-defined-control-VB-net


            <%@ Page Language=VB Debug=true %>
<%@ Register 
    TagPrefix="My" 
    TagName="SimpleControl" 
    Src="UserControlSub.ascx" 
%>

Sub Clear_Click(Sender As Object, E As EventArgs)
    MSC1.ClearText("All")
End Sub



Implementing a User Control on an ASP.NET Page


    runat="server"
    id="MyForm"    
>



    id="MSC1" 
    runat="server"
/>


    id="butOK"
    text="  OK  "
    runat="server"
/>
    id="butClear"
    text="Clear"
    onclick="Clear_Click" 
    runat="server"
/>



    id="lblMessage"
    runat="server"
/>



<%--UserControlSub.ascx

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 Version() As String
    Get
        Version = "2.3.145"
    End Get
End Property
Public WriteOnly Property FontName() As String
    Set
        lbl1.Font.Name = value
        lbl2.Font.Name = value
    End Set
End Property
Public WriteOnly Property FontBold() As Boolean
    Set
        lbl1.Font.Bold = value
        lbl2.Font.Bold = value
    End Set
End Property
Public Property UserNameLabel() As String
    Get
        UserNameLabel = lbl1.Text
    End Get
    Set
        lbl1.Text = value
    End Set
End Property
Public Property PasswordLabel() As String
    Get
        PasswordLabel = lbl2.Text
    End Get
    Set
        lbl2.Text = value
    End Set
End Property
Public Sub ClearText (TextToClear as String)
    If TextToClear = "All" Then
        txtUserName.Text = ""
        txtPassword.Text = ""
    ElseIf TextToClear = "UserName" Then        
        txtUserName.Text = ""
    ElseIf TextToClear = "Password" Then        
        txtPassword.Text = ""
    Else
        Err.Raise(vbObjectError + 513, "User Control Error!", _
            "TextToClear parameter must be set to " _
            & "All, UserName or Password!")
    End If
End Sub

    border-style:solid;border-color:black;" cellspacing="15">


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


    id="txtUserName"
    runat=server
/>




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


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



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