Public Class FrmStart


    Private Sub CmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdExit.Click
        Application.Exit()
    End Sub

    Private Sub FrmStart_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Dossier As String
        Dossier = My.Computer.FileSystem.CurrentDirectory
        LstFile.Items.Add(My.Computer.FileSystem.GetFiles(Dossier).ToString)

    End Sub

    Private Sub CmdOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdOpen.Click
        Dim OpF As New OpenFileDialog
        OpF.FileName = ""
        OpF.Title = "Ouvrir un fichier Candidat 7 Pro"
        OpF.Filter = "Fichier Candidate 7 Pro (*.C7P)|*.C7P"
        OpF.ShowDialog()

        nf = FreeFile()
        FileOpen(nf, OpF.FileName, OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Shared, lgcddts)
        Me.Hide()
        FrmAccueil.Show()

    End Sub

    Private Sub CmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSave.Click
        ReDim cddts.Ecrit(3)
        ReDim cddts.Oral(2)
        ReDim Tindex(3)

        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.
        Me.Hide()
        FrmAccueil.Show()
    End Sub
End Class