Chapter 9 Accès aux objets via VBScript

Attachement d'un objet de type lien à des symboles

Après avoir créé un objet de type lien, vous devez déclarer ses extrémités, puis vous attachez l'objet au diagramme en lui ajoutant les paramètres suivants : l'objet à afficher et les extrémités à attacher. Vous utilisez la méthode suivante : AttachLinkObject(ByVal Link As Object, ByVal Sym1 As Object = NULL, ByVal Sym2 As Object = NULL) As Object.

Exemple d'une relation liant deux entités

  'create entities objects
set entity1 = ActiveModel.entities.createnew
set entity2 = ActiveModel.entities.createnew
  'display entities symbols
set symbol1 = ActiveDiagram.AttachObject(entity1)
set symbol2 = ActiveDiagram.AttachObject(entity2)
  'create relationship object
set r = ActiveModel.relationships.createnew
  'Declare both ends
 r.object1= entity1
 r.object2= entity2
   'display relationship symbol between the two entity symbols: r=object to display, symbol1 and symbol2 are the ends to attach
 set Rsymb=ActiveDiagram.AttachLinkObject(r,symbol1,symbol2)

Dans cet exemple, si les paramètres symbol1 et symbol2 sont omis dans la méthode AttachLinkObject, leurs symboles seront néanmoins créés dans le diagramme (ou un synonyme graphique si besoin).

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