Les applications MDI - VideoK7

Lundi 17 mai 2004

Gilmir  -  Langlade Informatique     

Exercice 7 La feuille frmParent  -  saisie du code Saisie du code de la feuille frmParent 'Nous allons saisir dans "Object"/"Général" et dans la procédure "Déclarations" : 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 ' Saisie des commandes de boutons du deuxième Panel (5 boutons) 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 Saisie de la procédure "Form" 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 Prochain Tutoriel :       VisualBasic6.org est hébergé par Gilmir.com