Soyez le premier à donner votre avis sur cette source.
Snippet vu 14 046 fois - Téléchargée 34 fois
Les applications Multi Documents Interface (MDI) Lundi 18 mars 2003 Gilbert Miralles - www.langlade-informatique.com Visual Basic comporte trois styles d'interfaces : Interface monodocument(SDI) 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) Interface multidocument(MDI) 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 passe d'une feuille à l'autre en cliquant sur la fenêtre appropriée ou en la sélectionnant dans la barre de menu. Lorsque l'utilisateur bascule d'une feuille à l'autre, la fenêtre sélectionnée reçoit le focus et devient la feuille active. Le focus dans le cas d'une feuille a sa barre de titre marquée par une couleur plus visible de nuance bleue. Le focus peut être passé à un objet par programme, grâce à la méthode suivante : Objet.SetFocus les propriétés Enabled et Visible de l'objet doivent être à "True". Interface Explorateur 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. Terminologie MDI 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. Cette feuille contient toutes les autres feuilles qui seront crées et dont l'appellation sera feuille Fille ou fenêtre Fille. Chaque document nouvellement crée s'ouvre dans une fenêtre fille à l'intérieur d'une feuille parent. Les fenêtre 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 l'option Ajouter une feuille MDI, 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 Vous avez appris dans mes précédents Tutoriels à réaliser des menus à l'aide du créateur de menu. Vous créez les menus correspondants à la figure ci-contre, à savoir : Menu Fichier - Le menu Fichier contient trois sous menu intitulés Ouvrir, Sauver et Quitter Menu Fenêtre, contient les sous menu Cascade et Mosaïque et "?" contient l'étiquette A propos de... Un projet MDI peut également contenir des feuilles standard servant en particulier de boîte de dialogue modales, 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 Botomm 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. A partir de ces deux barre 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 Multi Document Interface (MDI). L'application BlocNote 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 soient 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 ou puisque à 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. Voici un aperçu de l'application qui a été réduite à sa plus simple expression pour des raisons d'espaces mémoire. Nous visualisons dans la barre de menu les étiquettes Fichier, Fenêtre et le point d'interrogation(commande About). Dans la barre d'outils les boutons Ouvrir, Sauver et Quitter Dans la barre de tache 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é 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 A 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 = 5100 FenetreMDI.Height = 5900 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 dedialogue 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 Voici les objets à insérer dans la fenêtre Fille La fenêtre fille ne contient rien de particulier si ce n'est qu'un objet Texte qui aura comme propriété Name Text1. L'application est terminée, vous pouvez si vous le souhaitez, télécharger le fichier exécutable du programme compilé BlocNote.exe - Télécharger. Vous pouvez bien sur améliorer ce programme qui est libre de droits et qui vous est offert par votre serviteur en espérant que vous appréciez mes concepts que je développe pour vous. Gilmir ©2000/2003 - Langlade-informatique.com
3 juin 2004 à 19:05
3 avril 2004 à 11:10
8 déc. 2003 à 16:56
21 oct. 2003 à 16:00
bie à toi (angie)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.