Trabajar con Métodos

Superior  Previo  Próximo

Objeto público

' ' ejemplo  de cómo trabajar con la colección Methods

' ' de un elemento - y con las colecciones de Method

 

Sub MethodLifeCycle 

 

Dim element as object 

Dim method as object 

Dim t as object 

Dim idx as Integer 

Dim idx2 as integer 

 

try 

element = m_Repository.GetElementByID(129) 

 

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

  method = element.Methods.GetAt(idx) 

  Console.WriteLine(method.Name) 

 

  t = method.PreConditions.AddNew("TestConstraint","something") 

  If t.Update = false Then  

Console.WriteLine("PreConditions: " + t.GetLastError) 

  End if

 

  method.PreConditions.Refresh  

  For idx2 = 0 to method.PreConditions.Count-1 

t = method.PreConditions.GetAt(idx2) 

Console.WriteLine("PreConditions: " + t.Name) 

If t.Name = "TestConstraint" Then 

method.PreConditions.DeleteAt(idx2,false) 

End If 

  Next 

 

  t = method.PostConditions.AddNew("TestConstraint","something") 

  If t.Update = false Then  

COnsole.WriteLine("PostConditions: " + t.GetLastError) 

  End if

 

  method.PostConditions.Refresh 

  For idx2 = 0 to method.PostConditions.Count-1 

t = method.PostConditions.GetAt(idx2) 

Console.WriteLine("PostConditions: " + t.Name) 

If t.Name = "TestConstraint" Then 

method.PostConditions.DeleteAt(idx2, false) 

End If

  Next 

 

  t = method.TaggedValues.AddNew("TestTaggedValue","something") 

  If t.Update = false Then  

COnsole.WriteLine("Tagged Values: " + t.GetLastError) 

  End if

 

  For idx2 = 0 to method.TaggedValues.Count-1 

t = method.TaggedValues.GetAt(idx2) 

Console.WriteLine("Tagged Value: " + t.Name) 

If(t.Name= "TestTaggedValue") Then 

method.TaggedValues.DeleteAt(idx2,false) 

End If

  Next 

 

  t = method.Parameters.AddNew("TestParam","string") 

  If t.Update = false Then  

Console.WriteLine("Parameters: " + t.GetLastError) 

  End if

 

  method.Parameters.Refresh 

  For idx2 = 0 to method.Parameters.Count-1 

t = method.Parameters.GetAt(idx2) 

Console.WriteLine("Parameter: " + t.Name) 

If(t.Name="TestParam") Then 

method.Parameters.DeleteAt(idx2, false) 

End If

  Next 

 

  method = nothing 

Next

catch e as exception 

Console.WriteLine(element.Methods.GetLastError()) 

Console.WriteLine(e) 

End try 

 

End Sub