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