22 lines
704 B
VB.net
22 lines
704 B
VB.net
Public Class PasswortabfrageLogin
|
|
Private Sub CmdLogin_Click(sender As Object, e As EventArgs) Handles CmdLogin.Click
|
|
|
|
|
|
If TxtPasswort.Text = "BmWr501956" Then
|
|
Dim main As New Main
|
|
main.picAVISOMessenger.Enabled = False
|
|
main.picAVISOMessenger.Visible = False
|
|
main.Show()
|
|
Me.Close()
|
|
Else
|
|
MsgBox("Nein, das war falsch!")
|
|
Application.Exit()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TxtPasswort_Enter(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TxtPasswort.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
CmdLogin.PerformClick()
|
|
End If
|
|
End Sub
|
|
End Class |