Ändeurngen gemäß E-Mail
This commit is contained in:
@@ -19,7 +19,7 @@ Partial Class login_ForgotPW
|
||||
Dim password As String = String.Empty
|
||||
Dim email As String = String.Empty
|
||||
Dim tokenname As String = String.Empty
|
||||
If txtEmail_M.Text = "E-Mail" And txt_Username_M.Text = "Username" And Not txtEmail.Text = "E-Mail" And Not txt_Username.Text = "Username" And String.IsNullOrEmpty(txtEmail.Text) = False And String.IsNullOrEmpty(txt_Username.Text) = False Then
|
||||
If txtEmail_M.Text = "E-Mail" And txt_Username_M.Text = "Username" And Not txtEmail.Attributes.Item("Placeholer") = "E-Mail" And Not txt_Username.Attributes.Item("Placeholer") = "Username" And String.IsNullOrEmpty(txtEmail.Text) = False And String.IsNullOrEmpty(txt_Username.Text) = False Then
|
||||
regexval_2_txt_Email_M.Enabled = False
|
||||
valreqtxtEmail_M.Enabled = False
|
||||
valreqtxtusername_M.Enabled = False
|
||||
@@ -82,6 +82,7 @@ Partial Class login_ForgotPW
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'Erweiterte Degub Msg-Box
|
||||
'MsgBox("Userdaten in App" + Environment.NewLine + email + Environment.NewLine + username + Environment.NewLine + "Userdaten desktop" + txt_Username.Text + Environment.NewLine + txtEmail.Text + Environment.NewLine + "Userdaten Mobil:" + Environment.NewLine + txtEmail_M.Text + Environment.NewLine + txt_Username_M.Text)
|
||||
If String.IsNullOrEmpty(email) = False And String.IsNullOrEmpty(tokenname) = True And String.IsNullOrEmpty(password) = True And String.IsNullOrEmpty(username) = False Then
|
||||
@@ -207,8 +208,8 @@ Partial Class login_ForgotPW
|
||||
Else
|
||||
'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08")
|
||||
lblMessage.ForeColor = Color.Red
|
||||
lblMessage.Text = "The form has not been filled completeley."
|
||||
End If
|
||||
lblMessage.Text = "The form has not been filled completeley."
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user