Chapter 4 Gestion des profils

Méthode d'édition

La méthode d'édition permet de personnaliser le comportement par défaut pour l'outil dans les formulaires personnalisés, ou bien pour le bouton Points de suspension dans la liste des attributs étendus qui s'affiche à droite de l'attribut étendu dans la feuille de propriétés de l'objet.

Vous pouvez cliquer sur l'outil Créer une méthode pour l'édition de la valeur à droite de la liste pour créer une méthode pour l'objet courant et la sélectionner pour l'attribut étendu.

Vous pouvez également cliquer sur l'outil Propriétés à droite de la liste pour afficher la page sur laquelle vous pouvez modifier la méthode créée. Pour plus d'informations sur les méthodes, voir Définition d'une méthode dans un profil.

Exemple

Le script de méthode d'édition suivant permet d'afficher une sélection d'objet étendus ayant un stéréotype de clé de cryptage et définir le nom de l'objet étendu dans l'attribut étendu de l'objet courant :

Sub %Method%(obj)
   Dim Mdl, Sel
   
' Retrieve the model
   Set Mdl = obj.Model
   If Not Mdl is Nothing then
     
 ' Create a selection object
      Set Sel = Mdl.CreateSelection
      If Not Sel is Nothing then
         Dim EncryptionKey
        
' Show the object picker dialog for selecting an Encryption key
         Set EncryptionKey = Sel.ShowObjectPicker ("ExtendedObject", "EncryptionKey", "Select an Encryption Key",False)
       
' Retrieve the selection
         If not EncryptionKey is Nothing Then
            obj.SetExtendedAttribute "Encrypted", "true"
            obj.SetExtendedAttribute "EncryptionKey", EncryptionKey.Code
         else
            output "Encryption Key selection cancelled or no Encryption Key defined in the model"
         End If
         Set EncryptionKey = Nothing

' Free the temporary selection
         Sel.Delete
      End If
   End If
   Set Mdl = Nothing
End Sub

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