Candidate-7-Pro/FrmInput2.vb

Public Class FrmInput2
    REM variables public a la feuille (classe)
    Dim tme() As String = {"Allemand", "Anglais", "Astronomie", "Biologie", "Espagnole", "Français", "Géographie", "Géologie", "Histoire", "Mathématique", "Philosohpie", "Russe"}
    Dim tmo() As String = {"Allemand", "Anglais", "Astronomie", "Espagnole", "Histoire", "Russe"}
    Dim tmf() As String = {"Lancer", "Natation", "Saut"}
    Dim treg() As String = {"Auvergne", "Bordelais", "Bretagne", "Morvan", "Nord", "Normandie", "Paris", "Poitou"}
    Dim ctro As Integer
    Dim ctre As Integer
    Dim ctrf As Integer

    Private Sub FrmIsc3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer REM pour les for
        Dim CB As CheckBox REM pour les for checkbox
        i = 0
        For Each CB In GBEcrit.Controls
            CB.Text = tme(i)
            i += 1
        Next
        i = 0
        For Each CB In GBOral.Controls
            CB.Text = tmo(i)
            i += 1
        Next
        i = 0
        For Each CB In GBFact.Controls
            CB.Text = tmf(i)
            i += 1
        Next
        For i = 0 To UBound(treg)
            CboRegion.Items.Add(treg(i))
        Next
        CboRegion.SelectedIndex = 0 REM met premier en tête...
        If FrmAccueil.Boule = False Then REM inscription
            Me.Text = "Assistant création de candidature (3/4)"
            TmrCaR.Start() REM timer start 
            LblCaR.Tag = 75
            RBno.Checked = True
            'Me.Text = "Assistant inscription (3/4)"
            'CmdDelet.Visible = False
            'CmdPre.Visible = False
            'LblCaR.Visible = True
        End If
        If FrmAccueil.Boule = True Then REM edition
            Me.Text = "Assistant édition de candidature (3/4)"
            CmdDelet.Visible = True
            CmdPre.Visible = True
            LblCaR.Visible = False
        End If

    End Sub

    Private Sub CmdAnnul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnul.Click
        TmrCaR.Stop() REM fin timmer
        FrmEdit.Close() REM ferme toutes les fenètres...
        FrmNouv.Close()
        FrmInput1.Close()
        Me.Close()
        FrmAccueil.Show() REM retour a l'accueil
    End Sub

    Private Sub TmrCaR_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrCaR.Tick
        LblCaR.Tag -= 1
        If LblCaR.Tag <= 1 Then
            LblCaR.Text = "Vous disposez de " & LblCaR.Tag & " seconde restante."
        End If
        If LblCaR.Tag > 61 Then
            LblCaR.Text = "Vous disposez d'une minute et " & LblCaR.Tag - 60 & " secondes restantes."
        End If
        If LblCaR.Tag = 61 Then
            LblCaR.Text = "Vous disposez d'une minute et " & LblCaR.Tag - 60 & " seconde restante."
        End If
        If LblCaR.Tag <= 60 And LblCaR.Tag <> 1 Then
            LblCaR.Text = "Vous disposez de " & LblCaR.Tag & " secondes restantes."
        End If
        If LblCaR.Tag <= 10 Then
            LblCaR.ForeColor = Color.Red
        End If
        If LblCaR.Tag <= 0 Then
            TmrCaR.Stop()
            LblCaR.Text = "Le temps impartie est écoulée."
            MsgBox("Le temps impartie est écoulé. L'inscription a échoué.", MsgBoxStyle.Exclamation, "Echec")
            FrmEdit.Close()
            FrmInput1.Close()
            FrmNouv.Close()
            Me.Close()
            FrmAccueil.Show()
        End If
    End Sub

    Private Sub CmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNext.Click
        TmrCaR.Stop()
        Me.Hide()
        FrmInput3.Show()
    End Sub

    Private Sub CmdDelet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdDelet.Click
        Dim quit As Integer
        quit = MsgBox("Vous êtes sur le point de supprimer une candidature. Voulez-vous continuer ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Suppression d'un candidat")
        If quit = 6 Then
            MsgBox("Le Candidat a bien été supprimé.", MsgBoxStyle.Information, "Information")
            FrmEdit.Close()
            FrmNouv.Close()
            FrmInput1.Close()
            Me.Close()
            FrmAccueil.Show()
        End If
    End Sub

    Private Sub CmdPre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdPre.Click
        REM retour au précédant
        Me.Hide()
        FrmInput1.Show()
    End Sub

    Private Sub RBno_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBno.CheckedChanged, RBYes.CheckedChanged
        If RBno.Checked Then
            RBYes.Checked = False
            GBFact.Visible = False
        End If
        If RBYes.Checked Then
            RBno.Checked = False
            GBFact.Visible = True
        End If
    End Sub

    Private Sub SecureEcritMAX4(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged, CheckBox6.CheckedChanged, CheckBox7.CheckedChanged, CheckBox8.CheckedChanged, CheckBox9.CheckedChanged, CheckBox10.CheckedChanged, CheckBox11.CheckedChanged, CheckBox12.CheckedChanged

        If sender.checkstate = CheckState.Checked Then
            ctre += 1
            If ctre > 4 Then
                MsgBox(" Pas plus de 4 cases !")
                sender.checkstate = CheckState.Unchecked
                'ctre -= 1 REM PAS BESOIN
            End If
        Else
            ctre -= 1
        End If
    End Sub

    Private Sub SecureOralMAX3(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox13.CheckedChanged, CheckBox14.CheckedChanged, CheckBox15.CheckedChanged, CheckBox16.CheckedChanged, CheckBox17.CheckedChanged, CheckBox18.CheckedChanged
        If sender.checkstate = CheckState.Checked Then
            ctro += 1
            If ctro > 3 Then
                MsgBox(" Pas plus de 3 cases !")
                sender.checkstate = CheckState.Unchecked
                'ctro -= 1 REM PAS BESOIN
            End If
        Else
            ctro -= 1
        End If
    End Sub

    Private Sub SecureFACULT(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox19.CheckedChanged, CheckBox20.CheckedChanged, CheckBox21.CheckedChanged
        REM compte le nombre de case cauché
        If sender.checkstate = CheckState.Checked Then
            ctrf += 1
        Else
            ctrf -= 1
        End If
    End Sub

    Private Sub CheckBox1_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged, CheckBox6.CheckedChanged, CheckBox7.CheckedChanged, CheckBox8.CheckedChanged, CheckBox9.CheckedChanged, CheckBox10.CheckedChanged, CheckBox11.CheckedChanged, CheckBox12.CheckedChanged, CheckBox13.CheckedChanged, CheckBox14.CheckedChanged, CheckBox15.CheckedChanged, CheckBox16.CheckedChanged, CheckBox17.CheckedChanged, CheckBox18.CheckedChanged, CheckBox19.CheckedChanged, CheckBox20.CheckedChanged, CheckBox21.CheckedChanged
        LblBox.Text = "Nombre d'écrits choisit : " & ctre & vbCrLf & "Nombre d'oraux choisit : " & ctro
    End Sub

End Class