Private Sub loginForm_Load()Sub loginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtUserName.Focus() '''' btnCancel.Visible = False End Sub
Private Sub btnExit_Click()Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Application.Exit()
End Sub
Private Sub btnSubmit_Click()Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
''''调用loginValidator组件
Dim validator As New Validator validator.vUsername = txtUserName.Text.Trim validator.vUserpwd = txtUserPwd.Text.Trim If (validator.validate() = True) Then Me.Close()