Chapter 4 Gestion des profils

Outils de disposition de boîte de dialogue

Ces outils ne sont disponibles que si le formulaire est une boîte de dialogue :

Outil	Nom
	Ajoute un champ d'édition sous l'élément sélectionné dans l'arborescence.
	Ajoute un champ d'édition multiligne sous l'élément sélectionné dans l'arborescence.
	Ajoute une liste modifiable sous l'élément sélectionné dans l'arborescence.
	Ajoute une zone de liste sous l'élément sélectionné dans l'arborescence.
	Ajoute une case à cocher sous l'élément sélectionné dans l'arborescence.

Exemple

Dans cet exemple, vous créez une nouvelle boîte de dialogue avec un champ d'édition. Cette boîte de dialogue s'affiche lorsque vous sélectionnez la commande Exporter dans le menu contextuel de la métaclasse d'objet étendu. Vous utilisez cette boîte de dialogue pour saisir le chemin d'accès de l'emplacement auquel l'objet étendu doit être exporté.

Pour créer cette boîte de dialogue, vous devez procéder comme suit :

1. Pointez sur la métaclasse ExtendedObject dans l'éditeur de ressources, puis sélectionnez Nouveau→Formulaire.
2. Saisissez Exportation dans la zone Nom, puis saisissez un commentaire dans la zone Commentaire. Assurez-vous d'avoir bien sélectionné le type Boîte de dialogue.
3. Cliquez sur l'outil Ajouter un champ d'édition pour ajouter un champ d'édition dans l'arborescence du formulaire, vous pouvez le nommer Nom du fichier.
4. Pointez sur la métaclasse ExtendedObject dans l'éditeur de ressources, puis sélectionnez Nouveau→Méthode. Vous créez ainsi une nouvelle méthode, que vous pouvez appeler Exporter.
5. Cliquez sur l'onglet Script de méthode, puis saisissez le code suivant :

Sub %Method%(obj)
   ' Exporte un objet dans un fichier
   
   ' Crée une boîte de dialogue pour saisir le nom de fichier d'exportation
   Dim dlg
   Set dlg = obj.CreateCustomDialog("MyProfile.Exportation")
   If not dlg is Nothing Then
      
      ' Initialise le contrôle de nom de fichier
      dlg.SetValue "Nom du fichier", "c:\temp\MyFile.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 du 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

SetValue initialise le champ d'édition, et GetValue utilise le chemin d'accès défini dans la boîte de dialogue.

1. Pointez sur la métaclasse ExtendedObject dans l'éditeur de ressources, puis sélectionnez Nouveau→Menu. Vous créez ainsi un nouveau menu que vous pouvez appeler Exporter.
2. Cliquez sur l'outil 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 dans 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.
   
   La boîte de dialogue Exportation s'affiche avec le champ d'édition Nom du fichier.
   

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