45 lines
1.8 KiB
VB.net
45 lines
1.8 KiB
VB.net
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 |