public Object

 

''An example of working with the Methods collection

''of an element - and with Method collections.

 

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