Public Class FrmAccueil

    Private Sub FrmAcceuil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ReDim cddts.Ecrit(3)
        ReDim cddts.Oral(2)
        ReDim Tindex(3)
        TmrHor.Start()
        cddts.CP = ClefMAX         REM ClefMAX qui est initialisé a 1.

        Boule = False
        nf = FreeFile()
        lgcddts = Len(cddts)    REM REF au mail de DG : La longeur de cddts n'est pas la même une fois le tableau redimentionné, il faut donc recalculer ladire longueur.
        FileOpen(nf, "Candidats.C7P", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Shared, lgcddts) REM  FileOpen(...ared, Len(cddts)) ne pourrait-il pas marcher vue que les tableaux ont étés modifés avant ?
        FilePut(nf, cddts, ClefMAX)
        ClefMAX += 1               REM Il passe a 2 pour la prochaine clef dans le fichier.
    End Sub





    Private Sub CmdQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdQuit.Click
        FrmBilanSelect.Tag = "Quitter Candidat 7 Pro"
        FrmBilanSelect.LblInfo.Text = "Avant de fermer les inscriptions, vous pouvez afficher un bilan individuel pour un candidat, un bilan par matière, et un bilan des candidats supprimés." & vbNewLine & "Que voulez-vous faire ?"
        FrmBilanSelect.CmdQuit.Visible = True
        FrmBilanSelect.ShowDialog()
    End Sub

    Private Sub CmdNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNew.Click
        Me.Hide()
        Boule = False   REM boule change pour nouveau (ou ne change pas la première fois)
        FrmNouv.Show()
    End Sub

    Private Sub CmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdEdit.Click
        Me.Hide()
        Boule = True REM bool change pour edition
        FrmEdit.Show()
    End Sub

    Private Sub CmdBilan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBilan.Click
        'Me.Hide()
        FrmBilanSelect.Tag = "Choisir un bilan"
        FrmBilanSelect.LblInfo.Text = "Vous pouvez afficher un bilan individuel pour un candidat, un bilan par matière, et un bilan des candidats supprimés." & vbNewLine & "Que voulez-vous faire ?"
        FrmBilanSelect.CmdQuit.Visible = False
        FrmBilanSelect.ShowDialog()
    End Sub

    Private Sub CmdAff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAff.Click
        FrmAff.Show()
        Me.Hide()
    End Sub



    Private Sub AffHeure(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrHor.Tick
        On Error Resume Next    REM Saute les erreurs eventuels (MSGBOX par exemple)
        Horaire = TimeOfDay()
        If Not (FrmInput1.Visible Or FrmInput2.Visible) Then
            ActiveForm.Text = ActiveForm.Tag & " | " & Horaire REM Sert a mettre l'heure dans les autres fenetres (mais fait des messages d'erreur parfois)
        End If
    End Sub
End Class