Diploma_Work/Form1.vb

微信扫码关注公众号，代码整理好后第一时间通知你。

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Form2.Visible = False
        parts.Visible = False
        If TextBox1.Text = "admin" And TextBox2.Text = "51aspx" Then
            Form2.Visible = True
        ElseIf TextBox1.Text = "user" And TextBox2.Text = "user" Then
            addclient.Show()
            Me.Hide()
        Else
            MsgBox("Inputed info is incorrect", MsgBoxStyle.Critical)
        End If
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

        MsgBox("AutoSalon automated system", MsgBoxStyle.OkOnly)

    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.CenterToScreen()
    End Sub

    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        Application.Exit()
        'Application.Exit()
        ' System.Threading.Thread.CurrentThread.Abort()
        'Process.GetCurrentProcess().Kill()
        'Application.ExitThread()
    End Sub
End Class