Agregar un Conector |
Superior Previo Próximo |
Objeto público "Agrega un conector y configura sus valores
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 el ID del Elemento para cargar rápidamente un elemento en este ejemplo ' ' ... necesitará encontrar un ID adecuado en su modelo
source = m_Repository.GetElementByID(129) target = m_Repository.GetElementByID(169)
con = source.Connectors.AddNew ("test link 2", "Association")
''de nuevo - reemplace el ID con uno adecuado desde su modelo 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 los extremos cliente y proveer para configurar ''información adicional
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 |