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 |