Tutoriel 36 : La feuille frmDelFile saisie du code

Sub Command3D1_Click ( )
    'Annule les initialisations :
    'efface tout
    For X% = 1 To 10
        BaseDonnees$(X%) = "": InfosBDonnees$(X%) = ""
    Next X%
    'Reclasser les entrées non effacées
    '(sans champs vides)
    For X% = 0 To Liste1.ListCount - 1
        'Entrée non effacée
        If Liste1.Selected(X%) = False Then
            'Marquée
            'Reprendre les informations des champs de liste
            Nombre% = Nombre% + 1
            BaseDonnees$(Nombre%) = Liste1.List(X%)
            InfosBDonnees$(Nombre%) = Liste2.List(X%)
        End If
    Next X%
    Unload frmDelFile
End Sub

Sub Command3D3_Click ( )
    'Si les descriptifs des bases de données ne sont pas affichées intégralement, cette commande
    'permet d'appeler l'information complète
    'Nom de la base de données
    frmName!Panel3D1.Caption = BaseDonnees$(Liste1.ListIndex + 1) + ".vsw"
    'Descriptif de la base de données
    frmName!Panel3D2.Caption = InfosBDonnees$(Liste1.ListIndex + 1)
    'Longueur du fichier
    frmName!Panel3D3.Caption = Str$(FileLen(App.Path + "\datas\" + frmName!Panel3D1.Caption)) + " Byte"
    'Répertoire de travail
    frmName!Panel3D4.Caption = App.Path + "\DATAS"
    frmName.Show 1
End Sub

Sub Command3D2_Click ( )
    Unload frmDelFile
End Sub

Sub Liste1_Click ( )
    'La sélection du fichier conduit automatiquement à la sélection du descriptif
    'Cale l'index de la liste
    Liste2.ListIndex = Liste1.ListIndex
    'Marquage de l'entrée correspondante
    Liste2.Selected(Liste2.ListIndex) = True
    'Remarque : le calage de la 2e liste est optimiste : 
    la liste n'est pas analysée pour l'effacement
End Sub

Sub Liste2_Click ( )
    'La sélection du fichier conduit automatiquement à la sélection du descriptif
    'Cale l'index de la liste
    Liste1.ListIndex = Liste2.ListIndex
    'Marquage de l'entrée correspondante
    Liste1.Selected(Liste1.ListIndex) = True
    'Remarque : le calage de la 1re liste est indispensable, car il permet de récupérer
    'les entrées marquées
End Sub

Sub Form_Load ( )
    'Affiche les bases de données et leurs descriptifs
    For X% = 1 To 10
        If BaseDonnees$(X%) <> "" Then
            'Nom du fichier dans liste n° 1
            Liste1.AddItem BaseDonnees$(X%)
            'Descriptif dans liste n° 2
            Liste2.AddItem InfosBDonnees$(X%)
        End If
    Next X%
    'Centre la feuille à l'écran
    CenterForm Me
End Sub