Construction de la feuille Mkfich.frm

Cette feuille va nous permettre de créer manuellement ou automatiquement les fichiers devant composer notre base de données. Quatre boutons complètent le graphique, un bouton "Créer", "Effacer champs", "Automatique", "Quitter". Les icônes peuvent être éventuellement récupérés directement sur l'image ndl : Si problème m'écrire

Sur un "Panel", qui occupe toute la surface de la feuille, on insère 4 "Frames" qui comprendront chacune d'elles :
1°) - Fichiers bases de données
2°) - Bases de données existantes
3°) - Description de la base de données
4°) - Répertoire de travail
Dans la première Frame on installe une textBox qui sera suivie d'un Label ".VSW".
PropriétéName : Texte1
Dans la deuxième on installe une ComboBox 
PropriétéName : ListeModif1
Dans la troisième Frame on insère une autre TextBox
PropriétéName : Texte2
Dans la quatrième Frame on installe un Label
PropriétéName : Etiquette2
4 boutons viennent compléter la feuille
PropriétéName : Command3D3 (Créer)
PropriétéName : Command3D1 (Effacer Champs)
PropriétéName : Command3D2 : (Automatique)
PropriétéName : ctlStatistique : (Quitter)

Ecriture du code :
En "Object"/"Général" - "Proc:"/"Déclarations", nous écrivons :

Sub FileDefinition (Fichier$, Info$)
'Sélection des fichiers uniquement si nouvelles définitions
For x% = 1 To 10
'Si fichier existe déjà, annuler
If Trim$(Fichier$) = Trim$(BaseDonnees$(x%)) Then Exit Sub
Next x%
'Nouvelle définition -> créer
Texte1.Text = Fichier$
Texte2.Text = Info$
Command3D3_Click
End Sub
' Nous programmons les commandes de boutons
Sub Command3D1_Click ( )
Texte1.Text = ""
Texte2.Text = ""
End Sub
'
Sub Command3D2_Click ( )
'Création automatique de bases de données
FileDefinition "SF", "Science Fiction"
FileDefinition "fantasy", "Fantasy / Contes"
FileDefinition "horror", "Horreur / Angoisse"
FileDefinition "action", "Action / Aventure"
FileDefinition "comedy", "Comédies / Divertissement"
FileDefinition "music", "Musique / Musicals"
FileDefinition "thriller", "Thriller "
FileDefinition "love", "Love Stories / Histoires d'amour"
FileDefinition "exotic", "Erotique & Exotique"
FileDefinition "western", "Western / Western spaghetti"

'A partir de cette ligne nous mettons les instructions suivantes en commentaires

'FileDefinition "eastern", "Eastern / Karate / Kung Fu"
'FileDefinition "war", "Guerre"
'FileDefinition "polard", "Policiers/ Espionnage"
'FileDefinition "trick", "Dessins animés / Animations"
'FileDefinition "nature", "Nature / Vie des bêtes"
'FileDefinition "sport", "Sport"
'FileDefinition "document", "Documentaires"
'FileDefinition "roman", "Films à base de romans"
'FileDefinition "show", "Shows & Music / Concerts"
'FileDefinition "tv", "Films télévision / Séries"
End Sub
'
Sub Command3D3_Click ( )
For x% = 1 To 10
If BaseDonnees$(x%) = "" Or BaseDonnees$(x%) = Texte1.Text Then Exit For
Next x%
If x% = 10 And BaseDonnees$(x%) <> "" Then
MsgBox "Vous ne pouvez pas créer plus de 10 bases de données !", 16, "Attention!"
Exit Sub
End If

If BaseDonnees$(x%) <> Texte1.Text Then
ListeModif1.AddItem Trim$(Texte1.Text)
ListeModif1.Refresh
End If
BaseDonnees$(x%) = Trim$(Texte1.Text)
InfosBDonnees$(x%) = Trim$(Texte2.Text)
End Sub
'
Sub CtlStatistique_Click ( )
Unload frmMakeFile
End Sub

'Nous ecrivons le code de la procédure "Form"
Sub Form_Load ( )
Etiquette2.Caption = App.Path + "\DATAS"
For x% = 1 To 10
If BaseDonnees$(x%) <> "" Then
ListeModif1.AddItem BaseDonnees$(x%)
End If
Next x%
ListeModif1.Text = BaseDonnees$(1)
Texte1.Text = BaseDonnees$(1)
Texte2.Text = InfosBDonnees$(1)
CenterForm Me
End Sub

'Nous saisissons le code du contrôle ComboBox
Sub ListeModif1_Change ( )
Texte1.Text = ListeModif1.Text
Texte1.Refresh
Texte2.Refresh
End Sub
'
Sub Texte1_Change ( )
ListeModif1.Text = Texte1.Text
End Sub