预订演示
前页 后页

Work With Methods

This is an example of code for 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