Estereotipos

Tema

Detalle

Objeto público

Sub TestStereotypes

Dim o as object

Dim idx as integer

''agregue un nuevo estereotipo a la colección de Estereotipos

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

If(o.Update=false) Then

Console.WriteLine (o.GetLastError())

End if

o = nothing

''asegúrese de actualizar

m_Repository.Stereotypes.Refresh

''luego itere a través de - eliminar nuestra 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