Agregar y Administrar Elementos

Superior  Previo  Próximo

Objeto público

''Agregar  y borrar elementos en un paquete

 

Sub ElementLifecycle

 

Dim package as Object 

Dim element as Object 

 

package = m_Repository.GetPackageByID(2) 

element = package.elements.AddNew("Login to Website","UseCase") 

element.Stereotype = "testcase" 

element.Update 

package.elements.Refresh() 

 

Dim idx as integer 

 

 

' ' tenga en cuenta las llamadas repetidas a "package.elements.GetAt" 

' ' en general debería hacer esta llamada una vez y asignar a una variable local

' ' En el ejemplo de abajo, EA cargará el elemento requerido cada vez 

' ' que se realiza una llamada - en lugar de cargar una vez y mantener

' ' una referencia local 

 

For idx = 0 to package.elements.count-1 

          Console.WriteLine(package.elements.GetAt(idx).Name) 

          If (package.elements.GetAt(idx).Name = "Login to Website" and _ 

                    package.elements.GetAt(idx).Type = "UseCase") Then 

                                      package.elements.deleteat(idx, false) 

          End If

Next 

End Sub