Chapter 4 Extension de vos modèles à l'aide de profils

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.

Dans ce exemple, nous allons créer une nouvelle boîte de dialogue qui sera affichée par la commande "Exporter" dans le menu contextuel des objets étendus et qui permet de saisir l'emplacement auquel les objets étendus doivent être exportés.

Pour créer la boîte de dialogue :

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("Nom de fichier")
         
         ' Traite l'algorithme d'exportation...
         Output "Exportation de l'objet " + obj.Name + " dans le fichier " + filename
         
      End If
      
      ' Free dialog object
      dlg.Delete
      Set dlg = Nothing
      
   End If
   
End Sub

1. 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)).
2. 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.
3. Cliquez sur OK pour enregistrer vos modifications et fermer l'éditeur de ressource.
4. 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.
   

Copyright (C) 2008. Sybase Inc. All rights reserved.