Agregar y Eliminar Atributos y Métodos

Superior  Previo  Próximo

Objeto público

Dim element as object 

Dim idx as integer 

Dim attribute as object

Dim method as object 

 

'sólo carga un elemento por su ID - necesitará  

'sustituir por un ID válido de su modelo 

element = m_Repository.GetElementByID(246) 

 

' ' cree un nuevo método 

method = element.Methods.AddNew("newMethod", "int") 

method.Update 

element.Methods.Refresh 

 

'ahora itera a través de los métodos de Elemento - y elimina o agrega 

For idx = 0 to element.Methods.Count-1 

method =element.Methods.GetAt(idx) 

Console.Writeline(method.Name) 

If(method.Name = "newMethod") Then 

element.Methods.Delete(idx) 

End if 

Next  

 

'crea un atributo

attribute = element.attributes.AddNew("NewAttribute", "int") 

attribute.Update 

element.attributes.Refresh 

 

'itera a través y elimina nuestro nuevo atributo

For idx = 0 to element.attributes.Count-1 

attribute =element.attributes.GetAt(idx) 

Console.Writeline(attribute.Name) 

If(attribute.Name = "NewAttribute") Then 

element.attributes.Delete(idx) 

End If 

Next