Description

Add a new Project object. PARAMETERS: Name and Description (String), Diagrams and Roles (StringObjects).

Syntax

Public Function Add( _
   ByVal Name As Variant, _
   ByVal Description As Variant, _
   ByVal Diagrams As StringObjects, _
   ByVal Roles As StringObjects _
) As Project

Parameters

  • Name
  • Description
  • Diagrams
  • Roles

Example

Sub Main

Dim modlist As StringObjects

Dim projs As Projects

Dim addmodlist As StringObjects

Dim addrolelist As StringObjects


Set projs = DiagramManager.RepoProjects

Set addmodlist = DiagramManager.CreateStringObjects

Set addrolelist = DiagramManager.CreateStringObjects

addrolelist.Add("Modeler")

addmodlist.Add("TestOracled.dm1")


projs.Remove("testproj")

projs.Add("Repository", "Repository-related models.", addmodlist, addrolelist)


Debug.Print DiagramManager.GetLastErrorString

End Sub



See Also

  • No labels