Réserver une Démo

SVP notez : Cette page d’aide n’est pas pour la dernière version d’Enterprise Architect. La dernière aide peut être trouvée ici.

Pré. Proc.

Add a Connector

This is an example of code to add a connector and set its values.

Sub ConnectorTest
     Dim source as object
     Dim target as object
     Dim con as object
     Dim o as object

     Dim client as object
     Dim supplier as object

     ''Use ElementIDs to quickly load an element in this example
     ''... you must find suitable IDs in your model

     source = m_Repository.GetElementByID(129)
     target = m_Repository.GetElementByID(169)

     con = source.Connectors.AddNew ("test link 2", "Association")

     ''again, replace ID with a suitable one from your model
     con.SupplierID = 169

     If not con.Update Then
          Console.WriteLine(con.GetLastError)
     End If
     source.Connectors.Refresh

     Console.WriteLine("Connector Created")

     o = con.Constraints.AddNew ("constraint2","type")
     If not o.Update Then
          Console.WriteLine(o.GetLastError)
     End If

     o = con.TaggedValues.AddNew ("Tag","Value")
     If not o.Update Then
          Console.WriteLine(o.GetLastError)
     End If

     ''Use the client and supplier ends to set
     ''additional information

     client = con.ClientEnd
     client.Visibility = "Private"
     client.Role = "m_client"
     client.Update
     supplier = con.SupplierEnd
     supplier.Visibility = "Protected"
     supplier.Role = "m_supplier"
     supplier.Update

     Console.WriteLine("Client and Supplier set")

     Console.WriteLine(client.Role)
     Console.WriteLine(supplier.Role)

End Sub