logon.ascx.vb

vb.net MCP课程的英文讲义,70-310课程,值得一读

Public MustInherit Class Logon
    Inherits System.Web.UI.UserControl
    Protected WithEvents lblEmail As System.Web.UI.WebControls.Label
    Protected WithEvents txtEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents revEmail As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents lblPassword As System.Web.UI.WebControls.Label
    Protected WithEvents txtPassword As System.Web.UI.WebControls.TextBox
    Protected WithEvents rfvPassword As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents lblNotFound As System.Web.UI.WebControls.Label
    Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
    Protected WithEvents rfvEmail As System.Web.UI.WebControls.RequiredFieldValidator

    Public Event SubmitPressed(ByVal Email As String, ByVal Password As String)

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        lblNotFound.Visible = False
        RaiseEvent SubmitPressed(txtEmail.Text, txtPassword.Text)
    End Sub

    Sub DisplayMessage(ByVal Message As String)
        lblNotFound.Text = Message
        lblNotFound.Visible = True
    End Sub
End Class