Chapter 9 Accès aux objets via VBScript

Création d'un raccourci à l'aide de VBScript

Lorsque vous créez le raccourci interne d'un objet, vous ajoutez l'objet existant dans un package différent au sein du même modèle. Le raccourci est créé dans le package spécifié en premier paramètre.

Vous utilisez la méthode suivante : CreateShortcut(ByVal NewPackage As Object, ByVal ParentCol As String = "") As Object.

Exemple

Set Model = CreateModel (PDCDM.cls_Model)
Set Package = Model.Packages.CreateNew
Set Entity = Model.Entities.CreateNew
Set Shortcut = Entity.CreateShortcut (Package)

Lorsque vous créez le raccourci externe d'un objet, vous ajoutez l'objet existant dans un package situé dans un modèle différent.

Exemple

  ' this script creates a shortcut of MyFile in Model2
Set Model1 = CreateModel (PDCDM.cls_Model)
Set MyFile = Model1.Files.CreateNew
Set Model2 = CreateModel(PDCDM.cls_Model)
Set Shortcut = MyFile.CreateShortcut (Model2)

Vous pouvez également créer un raccourci externe d'un objet en ajoutant l'objet dans une collection non possédée par le modèle.

Exemple

  ' this script creates a shortcut of MyFile in Model2
Set Model1 = CreateModel (PDCDM.cls_Model)
Set MyFile = Model1.Files.CreateNew
Set Model2 = CreateModel(PDCDM.cls_Model)
Model2.Files.Add(MyFile)

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