Estereotipos

Superior  Previo  Próximo

Objeto público

Sub TestStereotypes 

 

Dim o as object

Dim idx as integer 

 

' ' agregar   un nuevo estereotipo a la colección Estereotipos 

o = m_Repository.Stereotypes.AddNew("funky","class") 

If(o.Update=false) Then 

Console.WriteLine (o.GetLastError()) 

End if

o = nothing 

 

' ' asegura   el refresco 

m_Repository.Stereotypes.Refresh 

 

' ' luego itera a través - eliminando o agregando una nueva entrada en el   proceso 

For idx = 0 to m_Repository.Stereotypes.Count-1 

COnsole.Writeline(m_Repository.Stereotypes.GetAt(idx).Name) 

If(m_Repository.Stereotypes.GetAt(idx).Name = "funky") then 

  m_Repository.Stereotypes.DeleteAt(idx,false) 

  Console.WriteLine("Delete element") 

End if 

Next 

 

End Sub