Tutoriel 29 : Les applications MultiDocuments Interface (MDI)

Une application SDI contient une seule fenêtre de données. Lorsque l'utilisateur ouvre un nouveau fichier de données, le contenu vient prendre la place de la fenêtre précédemment ouverte.(Style Bloc Notes que tout le monde connaît).

Une application MDI contient plusieurs fenêtres de données.
Microsoft Word, par exemple, permet d'ouvrir autant de documents que l'on veut.
Le code MDI de Word garantit que chaque document apparaît dans sa propre fenêtre (voir figure ci-dessous). Dans cet exemple nous avons ouvert 4 feuilles sous Word.

On retrouve l'interface explorateur dans le cas des feuilles d'aide de Visual Basic et dans l'explorateur de Windows. La feuille active est représentée par deux fenêtres, l'une à droite et l'autre à gauche. La fenêtre de gauche affiche une vue détaillée des données dans la fenêtre de droite.

Pour pouvoir exploiter correctement le mode MDI, vous devez en connaître la terminologie.
La feuille principale qui sert de conteneur aux autres feuilles est souvent appelée feuille Parent ou fenêtre Parent.
Dans notre projet nous l'appellerons frmParent.
Cette feuille contient toutes les autres feuilles qui seront crées et dont l'appellation sera feuille Fille ou fenêtre fille, dans notre projet nous l'appellerons frmChild.
Chaque document nouvellement crée s'ouvre dans une fenêtre fille à l'intérieur d'une feuille parent.
Les fenêtres filles ne peuvent pas sortir du cadre de la feuille parent.
Techniquement parlant, la fenêtre fille se distingue d'une fenêtre classique par sa propriété MDIChild qui aura comme caractéristique, la valeur True.

Pour créer une application MDI, choisissez dans le menu Projet, ajoutez une feuilleMDI, après avoir créé la première feuille (MDIForm) vous la renommez en frmParent, vous créez une seconde feuille à l'aide de l'étiquette « Projet » ajoutez une feuille, (frm2) que vous renommez sous le nom de frmChild, puis définissez la valeur True à la propriété MDIChild de la nouvelle feuille.
Vous pouvez télécharger l'exemple type d'une application MDI prête à fonctionner.
Téléchargement

Un projet MDI peut également contenir des feuilles standard servant en particulier de boîte de dialogue modale, car les feuilles secondaires ne peuvent pas être affichées de manière modale. Pour les distinguer, Visual Basic affecte à chacun de ces trois types de feuilles une icône spécifique dans leur barre de titre et dans l'explorateur de projets.
Les applications MDI sont généralement équipées d'une barre d'outils et d'une barre d'état. Pour insérer des images ou des boutons dans une feuille MDI il faut obligatoirement insérer un objet image de type PictureBox et affecter la propriété Align à la valeur 1-Align Top pour insérer la barre sur le haut de la feuille(barre d'outils) et à la propriété 2 - Align Bottom pour insérer la barre dans le bas de la feuille(barre d'état).
Vous comprenez que pour installer deux barres dans la feuille MDI il faudra insérer deux objets PictureBox.
La barre d'outils vient automatiquement s'insérer au-dessous de la barre de titre qui est partie intégrante de la feuille Parent.
À partir de ces deux barres précédemment citées, nous pouvons construite l'arborescence des instructions de commande nécessaire à l'organisation de notre application.

Pour vous aider à comprendre les applications MDI, nous allons écrire un projet de bloc-notes qui ne demande pas énormément d'écriture de code et qui va nous permettre de vous familiariser avec la technique relative aux applications Multidocument Interface (MDI).

Après avoir dézippé le fichier téléchargé, nous insérons dans la feuille frmParent deux objets PictureBox comme précédemment expliqué en modifiant leurs propriétés pour que l'affichage de ces nouvelles barres soit conforme à la description indiquée.
Dans la barre supérieure, nous insérons trois boutons, le bouton « Ouvrir », le bouton « Sauver » et le bouton « Quitter ».
Nous insérons également un contrôle de boîtes de dialogue intitulé CommonDialog que nous positionnons n'importe où puisqu’à l'utilisation il devient invisible. Néanmoins pour nous habituer à cacher ce qui ne doit pas être vu par l'utilisateur et uniquement par soucis pédagogique, je vous demanderai de le positionner à l'intérieur de la barre d'outils nouvellement créée afin que ce contrôle ne soit plus visible.
Si ce contrôle n'est pas chargé dans votre boîte à outils, il faut aller le chercher depuis le générateur de programme(VB) et charger comme déjà expliqué dans des leçons précédentes le fichier Comdlg32.ocx qui se trouve dans le répertoire de Windows\system de votre système d'exploitation.

Dans la barre de tâches, nous avons inséré un Label et inscrit une annotation qui peut éventuellement contenir votre Copyright ainsi que votre nom.
Pour votre information, les propriétés de la « Form » frmParent que j'ai réalisées ont les valeurs suivantes :
Height : 7215
Width : 10350
Vous constatez que cela ne correspond pas à l'image qui est affichée ci-dessus, à vous de présenter votre interface en fonction de vos aptitudes créatrices, n'oublions pas que Visual Basic est aussi un environnement graphique et que la présentation des programmes est fonction du bon vouloir du programmeur que vous êtes.

Voici la saisie du code à insérer dans l'application

Voici le code à insérer dans la fenêtre frm Parent
À l'emplacement « Général » « Déclarations »

Dim FenetreMDI As Form
'
Private Sub butOuvrir_Click( )
    'Définitions des propriétés de la boîte de dialogue
    CMDialog1.DialogTitle = "Choisissez un fichier"
    CMDialog1.CancelError = True
    CMDialog1.Filter = True
    CMDialog1.Filter = "Fichiers Textes(*.txt)"
    CMDialog1.FilterIndex = 1
    CMDialog1.InitDir = "C:\"
    '
    'Définition de la routine de renvoi d'erreur
    On Error GoTo ExitbutOuvrir
    'Affichage de la boîte de dialogue
    CMDialog1.ShowOpen
    'Ouverture du fichier sélectionné
    Set FenetreMDI = New frmChild
    FenetreMDI.Show
    FenetreMDI.Width = 5000
    FenetreMDI.Height = 5800
    crlf = Chr$(13) + Chr$(10)
    Open CMDialog1.FileName For Input As #1
    Line Input #1, texte
    lire = texte
    While Not EOF(1)
        Line Input #1, texte
        lire = lire + crlf + texte
    Wend
    FenetreMDI.Text1.Text = lire
    FenetreMDI.Caption = CMDialog1.FileName
    Close #1
    Exit Sub
    ExitbutOuvrir:
    'Sortie sans provoquer d'erreur
End Sub
'
Private Sub butQuitter_Click( )
    'Fermer toutes les feuilles et quitter le programme
    T$ = "Attention"
    M$ = "Voulez-vous vraiment quitter le programme ?"
    Reponse% = MsgBox(M$, 4 + 32, T$)
    If Reponse% = 6 Then
    'Sortir du programme
End
End If
End Sub
'
Private Sub butSauver_Click( )
    'Définition des propriétés de la boîte de dialogue
    CMDialog1.DialogTitle = "Enregistrer le fichier sous..."
    CMDialog1.CancelError = True
    CMDialog1.Filter = "txt (*.TXT | (*.TXT)"
    CMDialog1.FilterIndex = 1
    CMDialog1.InitDir = "C:\"
    CMDialog1.FileName = "Saver.txt"
    '
    'Définition de la routine de traitement des erreurs
    On Error GoTo ExitSaveFile
    'Affichage de la boîte de dialogue
    CMDialog1.ShowSave
    '
    'Sauvegarde du fichier
    Open CMDialog1.FileName For Output As #1
    Print #1, FenetreMDI.Text1.Text
    Close #1
    Exit Sub
    ExitSaveFile:
    'Sortie sans provoquer d'erreurs
End Sub
'
Private Sub MDIForm_Load( )
    'Centrer la feuille à l'écran
    CenterForm Me
End Sub
'
Private Sub mnu_About_Click( )
    frmAbout.Show 1
End Sub
'
Private Sub mnu_Cascade_Click( )
    frmParent.Arrange vbCascade
End Sub
'
Private Sub mnu_Mosaique_Click( )
    frmParent.Arrange vbTileVertical
End Sub
'
Private Sub mnu_Ouvrir_Click( )
    butOuvrir_Click
End Sub
'
Private Sub mnu_Quitter_Click( )
    butQuitter_Click
End Sub
'
Private Sub mnu_Sauver_Click( )
    butSauver_Click
End

Nous créons un module et saisissons la formule de centrage de feuilles précédemment décrites dans d'autres Tutoriels

Sub CenterForm(frm As Form)
    'Centre la feuille à l'écran
    frm.Left = (Screen.Width - frm.Width) / 2
    frm.Top = (Screen.Height - frm.Height) / 2
End Sub

La fenêtre fille ne contient rien de particulier si ce n'est qu'un objet Texte qui aura comme propriété Name Text1.
Télécharger.


Vous pouvez bien sûr améliorer ce programme qui est libre de droits et qui vous est offert par votre serviteur en espérant que vous appréciez les concepts que je développe pour vous.