1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Private Sub BtnModifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnModifier.Click
If NomTextBox.Text = "" Then
MsgBox("le nom est obligatoire", MsgBoxStyle.Exclamation, "erreur...")
NomTextBox.Focus()
NomTextBox.BackColor = Color.Yellow
Return
End If
If MDPTextBox.Text = "" Then
MsgBox("le mot de passe est obligatoire", MsgBoxStyle.Exclamation, "erreur...")
MDPTextBox.Focus()
MDPTextBox.BackColor = Color.Yellow
Return
End If
If MDPTextBox.Text <> TxtConfirmation.Text Then
MsgBox("le mot de passe de confirmation n'est pas identique au premier", MsgBoxStyle.Exclamation, "erreur...")
MDPTextBox.Clear()
TxtConfirmation.Clear()
MDPTextBox.Focus()
MDPTextBox.BackColor = Color.Yellow
Return
End If
utilisateur.Nom = NomTextBox.Text
utilisateur.Mdp = MDPTextBox.Text
utilisateur.Adresse = AdresseTextBox.Text
utilisateur.Tel = TelTextBox.Text
utilisateur.Mail = MailTextBox.Text
utilisateur.Nom = NomComboBox.Text
utilisateur.modifier()
MsgBox("l'utulisateur a été bien modifier", MsgBoxStyle.Information, "information")
End Sub |