46 lines
1.3 KiB
VB.net
46 lines
1.3 KiB
VB.net
|
|
Partial Class login_ChangePW
|
|
Inherits System.Web.UI.Page
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs)
|
|
btn_submitpw.Enabled = False
|
|
txt_Pw_WH.Enabled = False
|
|
regexval_txt_Pw_WH.Enabled = False
|
|
End Sub
|
|
|
|
Protected Sub txt_Pw_WH_TextChanged(sender As Object, e As EventArgs)
|
|
regexval_txt_Pw_WH.Validate()
|
|
confirmPasswordReq.Validate()
|
|
If confirmPasswordReq.IsValid Then
|
|
btn_submitpw.Enabled = True
|
|
Else
|
|
btn_submitpw.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub btn_submitpw_Click(sender As Object, e As EventArgs)
|
|
Dim tempstr As String = ""
|
|
|
|
If txt_Pw.Text = tempstr Then
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub txt_Pw_TextChanged(sender As Object, e As EventArgs)
|
|
regexval_txt_Pw.Validate()
|
|
|
|
If regexval_txt_Pw.IsValid Then
|
|
txt_Pw_WH.ReadOnly = False
|
|
txt_Pw_WH.Enabled = True
|
|
regexval_txt_Pw_WH.Enabled = True
|
|
MsgBox("PW erfolgreich geändert!")
|
|
Else
|
|
txt_Pw_WH.ReadOnly = True
|
|
txt_Pw_WH.Enabled = False
|
|
regexval_txt_Pw_WH.Enabled = False
|
|
MsgBox("PW nicht erfolgreich geändert!")
|
|
End If
|
|
|
|
End Sub
|
|
End Class
|