Public Class frmLogIn
Private Sub btnLogIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogIn.Click
If textbox1.Text = My.Settings.Username And textbox2.Text = My.Settings.Password Then
MsgBox("Welcome! " + My.Settings.Username, MsgBoxStyle.Information, "Welcome")
Form1.Show()
Hide()
Else
If textbox1.Text = "" And textbox2.Text = "" Then
MsgBox("ไม่มีชื่อผู้ใช้ และ รหัสผ่าน", MsgBoxStyle.Critical, "Error")
Else
If textbox1.Text = "" Then
MsgBox("ไม่มีชื่อผู้ใช้", MsgBoxStyle.Critical, "Error")
Else
If textbox2.Text = "" Then
MsgBox("ไม่มีรหัสผ่าน", MsgBoxStyle.Critical, "Error")
Else
MsgBox("ชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้อง", MsgBoxStyle.Critical, "Error")
End If
End If
End If
End If
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub frmLogIn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Username.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
Me.Hide()
End Sub
End Class
Public Class Form1
Dim count As Byte = 1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "admin" And TextBox2.Text = "admin" Then
MsgBox("Welcome! " + "admin", MsgBoxStyle.Information, "Welcome")
Hide()
ElseIf count > 3 Then
MsgBox("คุณใส่รหัสเกิน 3 ครั้งแล้ว", MsgBoxStyle.Critical, "Error")
ElseIf TextBox1.Text = "" And TextBox2.Text = "" Then
MsgBox("ไม่มีชื่อผู้ใช้ และ รหัสผ่าน", MsgBoxStyle.Critical, "Error")
ElseIf TextBox1.Text = "" Then
MsgBox("ไม่มีชื่อผู้ใช้", MsgBoxStyle.Critical, "Error")
ElseIf TextBox2.Text = "" Then
MsgBox("ไม่มีรหัสผ่าน", MsgBoxStyle.Critical, "Error")
Else
count += 1
MsgBox("ชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้อง", MsgBoxStyle.Critical, "Error")
End If
End Sub
End Class
สร้างตัวแปรระดับ Class มาเก็บค่าไว้ และเมื่อล็อคอินผิดก็ให้ บวกเพิ่มเข้าไป
Public Class frmLogIn
Dim count As Byte = 1
Private Sub btnLogIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogIn.Click
If textbox1.Text = My.Settings.Username And textbox2.Text = My.Settings.Password Then
MsgBox("Welcome! " + My.Settings.Username, MsgBoxStyle.Information, "Welcome")
Form1.Show()
Hide()
ElseIf count > 3 Then
MsgBox("คุณใส่รหัสเกิน 3 ครั้งแล้ว", MsgBoxStyle.Critical, "Error")
ElseIf textbox1.Text = "" And textbox2.Text = "" Then
MsgBox("ไม่มีชื่อผู้ใช้ และ รหัสผ่าน", MsgBoxStyle.Critical, "Error")
ElseIf textbox1.Text = "" Then
MsgBox("ไม่มีชื่อผู้ใช้", MsgBoxStyle.Critical, "Error")
ElseIf textbox2.Text = "" Then
MsgBox("ไม่มีรหัสผ่าน", MsgBoxStyle.Critical, "Error")
Else
count += 1
MsgBox("ชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้อง", MsgBoxStyle.Critical, "Error")
End If
End Sub
Load balance : Server 02
