Exemple : Ouverture d'une boîte de dialogue à partir d'un menu

Dans cet exemple nous allons créer une commande de menu permettant d'exporter des propriétés d'objet dans un fichier XML par l'intermédiaire d'une boîte de dialogue.

1. Créez un nouveau fichier d'extension (voir Création d'un fichier d'extension) dans un MPD, puis ajoutez la métaclasse Table (voir Métaclasses (Profile)).
2. Pointez sur la métaclasse Table cliquez le bouton droit de la souris, puis sélectionnez Nouveau > Formulaire. Saisissez Exporter dans la zone Nom, puis sélectionnez Boîte de dialogue dans la zone Type.
3. Cliquez sur l'outil Ajouter une zone d'édition pour ajouter un contrôle de zone d'édition, puis nommez-le Nom de fichier.
4. Pointez sur la métaclasse Table, cliquez le bouton droit de la souris, puis sélectionnez Nouveau > Méthode. Saisissez Exporter dans la zone Nom, cliquez sur l'onglet Script de méthode et saisissez le code suivant :

   Sub %Method%(obj)
   ' Exporter un objet dans un fichier
   ' Créer une boîte de dialogue pour saisir le nom du fichier
   Dim dlg
   Set dlg = obj.CreateCustomDialog("%CurrentTargetCode%.Exporter")
       If not dlg is Nothing Then
       ' Initialiser la valeur du contrôle de nom de fichier
       dlg.SetValue "Nom de fichier", "c:\temp\MonFichier.xml"
     
       ' Show dialog
       If dlg.ShowDialog() Then
           ' Récupérer la valeur du client pour le contrôle de nom de fichier
           Dim filename
           filename = dlg.GetValue("Nom de fichier")
      
           ' Traiter l'algorithme d'exportation...
           ' (Code d'exportation non inclus dans cet exemple)
   
           Output "Exportation de l'objet  " + obj.Name + " vers le fichier " + filename
       End If
     
       ' Libérer la boîte de dialogue
       dlg.Delete
       Set dlg = Nothing
   End If
   End Sub

5. Pointez sur la métaclasse Table, cliquez le bouton droit de la souris, puis sélectionnez Nouveau > Menu. Saisissez Exporter dans la zone Nom, puis cliquez sur l'outilAjouter une commande et sélectionnez la méthode Exporter :
   
   
6. Cliquez sur OK pour enregistrer vos modifications et revenir au modèle. Lorsque vous pointez sur une table dans le diagramme ou dans l'Explorateur d'objets et cliquez le bouton droit de la souris, la commande Exporter est disponible dans le menu contextuel.