Exemple : Création d'une boîte de dialogue affichée depuis une commande de menu

Vous pouvez créer une boîte de dialogue lorsque vous devez saisir des paramètres dans le cadre OLE automation via VB scripts.

1. Pointez sur la métaclasse ExtendedObject, cliquez le bouton droit de la souris, puis sélectionnez Nouveau > Formulaire.
2. Saisissez Exporter dans la zone Nom, puis sélectionnez Boîte de dialogue dans la liste Type.
3. Cliquez sur l'outil Zone d'édition pour ajouter un contrôle de zone d'édition, et nommez-le "Nom de fichier".
4. Pointez sur la métaclasse ExtendedObject, cliquez le bouton droit de la souris, puis sélectionnez Nouveau > Méthode. Vous créez ainsi une nouvelle méthode, que vous pouvez appeler Exporter.
5. Nommez la méthode "Exporter", cliquez sur l'onglet Script de méthode, puis spécifiez le code suivant :

   Sub %Method%(obj)
    ' Exporte un objet dans un fichier
    
    ' Crée une boîte de dialogue pour saisir le nom du fichier
   d'exportation
    Dim dlg
    Set dlg = obj.CreateCustomDialog
   		("%CurrentTargetCode%.Export")
    If not dlg is Nothing Then
     
     ' Initialise le contrôle de nom de fichier
     dlg.SetValue "Nom de fichier", ""c:\temp\MonFichier.txt"
     
     ' Affiche la boîte de dialogue
     If dlg.ShowDialog() Then
      
      ' Extrait la valeur client pour le contrôle de nom de
   fichier
      Dim filename
      filename = dlg.GetValue("Filename")
      
      ' Traite l'algorithme d'exportation...
      Output "Exportation de l'objet " + obj.Name + " dans le fichier " + filename
      
     End If
     
     ' Libère la boîte de dialogue
     dlg.Delete
     Set dlg = Nothing
     
    End If
    
   End Sub

6. Pointez sur la métaclasse ExtendedObject dans l'éditeur de ressources, cliquez le bouton droit de la souris, puis sélectionnez Nouveau > Menu pour créer une nouvelle commande dans son menu contextuel (voir Menus (Profile)).
7. Saisissez le nom "Exporter", cliquez sur Ajouter des commandes à partir de méthodes et de transformations, puis sélectionnez la méthode Exporter que vous venez de créer.
8. Cliquez sur OK pour enregistrer vos modifications et fermer l'éditeur de ressource.
9. Pointez sur un objet étendu dans le diagramme courant, cliquez le bouton droit de la souris, puis sélectionnez la commande Exporter dans le menu contextuel.