Tutoriel 34 : Le code de la feuille frmParent

Private Sub mnu_MakeFile_Click( )
    'Crée une base de données de films vidéo
    frmMakeFile.Show 1
End Sub

Private Sub mnu_DelFile_Click( )
     'Efface base de données
     frmDelFile.Show 1
End Sub

Private Sub mnu_FileOpen_Click( )
     'Dialogue d'ouverture de fichiers graphiques à afficher
     frmFileOpen.Show 1
End Sub

Private Sub mnu_Exit_Click( )
     Titre = "Attention"
     Message = "Souhaitez-vous quitter Video_K7 ?"
     Reponse = MsgBox(Message, 32 + 4, Titre)
     If Reponse = 6 Then End
End Sub

Private Sub mnu_Aide1_Click( )
    'Appel de la feuille d' aide par la procédure "FileMsg"
    FileMsg "FileMsg.txt", 1
End Sub

Private Sub mnu_Aide2_Click( )
    'Appel de la feuille d' aide par la procédure "FileMsg"
    FileMsg "FileMsg.txt", 2
End Sub

Private Sub mnu_Infos_Click( )
    'Appel de la feuille d' aide par la procédure "FileMsg"
    FileMsg "FileMsg.txt", 4
End Sub

Private Sub mnu_About_Click( )
    'Appel de la feuille About par la Méthode Show
    frmAbout.Show 1
End Sub

Private Sub SSCommand1_Click( ) devient : cmdCreat
     'Créer une base de données
     frmMakeFile.Show 1
End Sub

Private Sub SSCommand2_Click( ) devient : cmdOpen
     'Ouvrir une base de données
     mnu_FileOpen_Click
End Sub

Private Sub SSCommand3_Click( ) devient : cmdErase
     'Efface base de données
     frmDelFile.Show 1
End Sub

Private Sub SSCommand4_Click( ) devient : cmdCascade
     'Fenêtres superposées et décalées
     frmParent.Arrange 0
End Sub

Private Sub SSCommand5_Click( ) devient : cmdHorTile
     'Fenêtres en mosaïque verticale
     frmParent.Arrange 2
End Sub

Private Sub SSCommand6_Click( ) devient : cmdTile
     'Fenêtres en mosaïque verticale
     frmParent.Arrange 1
End Sub

Private Sub SSCommand7_Click( ) devient : cmdIconArrange
     'Arrange les icônes
     frmParent.Arrange 3
End Sub

Private Sub SSCommand8_Click( ) devient : cmdClose
     'Appelle la procédure de fermeture de toutes les fenêtres filles
     CloseAll
End Sub

Private Sub SSCommand9_Click( ) devient : cmdTime
     If Indicateur = 0 Then
     Panel3d9.Visible = True
     Indicateur = 1
Else
     Panel3d9.Visible = False
     Indicateur = 0
     End If
End Sub

Private Sub SSCommand10_Click( ) devient : cmdHelp
     'Info
     mnu_Infos_Click
End Sub

Private Sub MDIForm_Load( )
     'Ajuster le pointeur de souris
     Screen.MousePointer = 0
     'Répertoire de travail = répertoire du programme
     ChDir App.Path
     'Centrage de la feuille à l' écran
     CenterForm  frmParent
     'Afficher la feuille et la positionner dans la dimension de l' écran   
     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