Tutoriel 41 : La feuille frmParent - saisie du code

Dim Indicateur                  'Déclaration d'une variable pour l'affichage de l'heure(le nom importe peu)
'Initialisation et ouverture du fichier *.lst
Sub InitFiles ( )
    On Error GoTo ExitInitFiles 'si nous rencontrons une erreur(ex. : fichier déjà créé) nous sortons
    'Initialisation des comptes
    KNum = FreeFile
    Open App.Path + "\datas\fichfilm.lst" For Input As #KNum 'création du fichier fichfilm.lst
    While Not EOF(KNum)
        Input #KNum, K$, KI$
        If K$ <> "" Then
            X% = X% + 1
            BaseDonnees$(X%) = K$
            InfosBDonnees$(X%) = KI$
        End If
    Wend
    Close #KNum
    ExitInitFiles:
    Exit Sub
End Sub
'

Sub bnCascade_Click ( )     'Premier bouton
    'Fenêtres superposées et décalées
    frmParent.Arrange 0
End Sub
'
Sub bnTile_Click ( )     'Deuxième bouton
    'Fenêtres en mosaïque verticale
    frmParent.Arrange 2
End Sub
'
Sub bnHorTile_Click ( )     'Troisième bouton
    'Fenêtres en mosaïque verticale
    frmParent.Arrange 1
End Sub
'
Sub bnIconArrange_Click ( )     'Quatrième bouton
    'Arrange les icônes
    frmParent.Arrange 3
End Sub
'
Sub bnClose_Click ( )
    'Appelle la procédure de fermeture
    'de toutes les fenêtres filles
    CloseAll
End Sub

'
'Saisie de commande du bouton horloge
Sub Command3D3_Click ( )
    If Indicateur = 0 Then     
        Panel3D9.Visible = True
        Indicateur = 1
    Else
        Panel3D9.Visible = False
        Indicateur = 0
    End If
End Sub

'
'Nous insérons un panel juste après le bouton de l'horloge  avec comme : (Voir cliché leçon N°1)
PropiétéCaption = Panel3D9
'Nous insérons un deuxième Panel avec comme :
PropriétéCaption = Panel3D4
'
Saisie de commande du bouton Help
Sub bnHelp_Click ( )
    'Info
    mnu_Infos_Click
End Sub

Sub MDIForm_Load ( )
    Screen.MousePointer = 0
    'Unload Form3                               'Cette Form n'est pas créée dans cette application
    'Répertoire de travail = répertoire du programme
    ChDir App.Path
    CenterForm frmParent
    Me.WindowState = 2
    'Affichage de l'heure et de la date
    Panel3D9.Caption = Time
    Panel3D4.Caption = Date
    'Initialise base de données et descriptifs
    InitFiles
End Sub