Exercice Visual Basic : Fiche Client

Ecrire le code VB qui permet de réaliser les Interfaces suivantes:

Solution

Public Class Form1
    Dim N As Boolean
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DateTimePicker1.Value = Now
        txtAdresse.Clear()
        txtcode.Clear()
        txtNom.Clear()
        TxtPrénom.Clear()
        txtville.Clear()
        txtNom.Focus()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ErreurNom()
        ErreurPrénom()
        ErreurCode()
        If Not N Then
            Nom = txtNom.Text.Trim
            Prénom = TxtPrénom.Text.Trim
            Adresse = txtAdresse.Text.Trim
            Code = txtcode.Text.Trim
            Ville = txtville.Text.Trim
            Form2.Show()
            Me.Close()
        Else
            MsgBox("Veuillez vérifier la validité de vos données")
        End If
    End Sub
    Sub ErreurNom()
        If txtNom.Text = "" Then
            ErrorProvider1.SetError(txtNom, "Vous devez Saisir le Nom")
            ToolStripStatusLabel1.Text = "Erreur de Saisies"
            N = True
            Exit Sub
        End If
        For i = 0 To Len(txtNom.Text.Trim) - 1
            If Not Char.IsLetter(txtNom.Text(i)) Then
                ErrorProvider1.SetError(txtNom, "Erreur de Saisies du Nom")
                ToolStripStatusLabel1.Text = "Erreur de Saisies"
                N = True
                Exit Sub
            End If
        Next
        ErrorProvider1.Clear()
        N = False
    End Sub
 
    Sub ErreurPrénom()
        If TxtPrénom.Text = "" Then
            ErrorProvider2.SetError(TxtPrénom, "Vous devez Saisir le Prénom")
            ToolStripStatusLabel1.Text = "Erreur de Saisies"
            N = True
            Exit Sub
        End If
        For i = 0 To Len(TxtPrénom.Text.Trim) - 1
            If Not Char.IsLetter(TxtPrénom.Text(i)) Then
                ErrorProvider2.SetError(TxtPrénom, "Erreur de Saisies du Prénom")
                ToolStripStatusLabel1.Text = "Erreur de Saisies"
                N = True
                Exit Sub
            End If
        Next
        ErrorProvider2.Clear()
        N = False
    End Sub
 
    Sub ErreurCode()
        Dim L As Integer = Len(txtcode.Text.Trim)
        If L <= 5 Then
            For i = 0 To Len(txtcode.Text.Trim) - 1
                If Not Char.IsDigit(txtcode.Text(i)) Then
                    ErrorProvider3.SetError(txtcode, "Code Postale doit comporter 5 chiffres")
                    ToolStripStatusLabel1.Text = "Erreur de Saisies"
                    N = True
                    Exit Sub
                End If
            Next
        Else
            ErrorProvider3.SetError(txtcode, "Code Postale doit comporter 5 chiffres")
            ToolStripStatusLabel1.Text = "Erreur de Saisies"
            txtcode.Text.Remove(L - 5)
            N = True
            Exit Sub
        End If
        ErrorProvider3.Clear()
        N = False
    End Sub
End Class
 
-----------------------------------------------------------------------------
 
Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.Show()
        Me.Close()
    End Sub
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblNom.Text = Prénom & " " & Nom
        lbladresse1.Text = Adresse
        lbladresse2.Text = Code & " " & Ville
    End Sub
End Class
 
-----------------------------------------------------------------------------
 
 
Module Module1
    Public Nom, Prénom, Adresse, Code, Ville As String
End Module