34 lines
1.3 KiB
VB.net
34 lines
1.3 KiB
VB.net
Public Class frmLogin_NI
|
|
|
|
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
|
|
If Me.txtPW.Text <> "" Then
|
|
If Me.txtPW.Text = My.Settings.vPW_admin Then
|
|
Me.Hide()
|
|
frmNIProfilhinzufuegen.ShowDialog()
|
|
Cursor = Cursors.Default
|
|
Else
|
|
MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:")
|
|
Me.txtPW.Text = ""
|
|
Me.txtPW.Focus()
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Sub frmLogin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
Me.txtPW.Text = ""
|
|
End Sub
|
|
|
|
Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub txtPW_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPW.GotFocus
|
|
Me.txtPW.BackColor = Color.Lime
|
|
End Sub
|
|
|
|
Private Sub txtPW_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPW.LostFocus
|
|
Me.txtPW.BackColor = Color.White
|
|
End Sub
|
|
Private Sub frmLogin_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
|
|
Me.txtPW.Focus()
|
|
End Sub
|
|
End Class |