Réserver une Démo

SVP notez : Cette page d’aide n’est pas pour la dernière version d’Enterprise Architect. La dernière aide peut être trouvée ici.

Pré. Proc.

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