Repository.Model.GetAllModels: Difference between revisions
		
		
		
		Jump to navigation
		Jump to search
		
Kate Racaza (talk | contribs) No edit summary  | 
				Kate Racaza (talk | contribs) No edit summary  | 
				||
| (2 intermediate revisions by the same user not shown) | |||
| Line 2: | Line 2: | ||
<onlyinclude>  | <onlyinclude>Returns an array of '''[[CModel Class|cModel]]''' objects that represent the model resources in the current project.</onlyinclude>    | ||
== Syntax ==  | == Syntax ==  | ||
| Line 26: | Line 26: | ||
    ListofModels = MyRepository.Model.GetAllModels()  |     ListofModels = MyRepository.Model.GetAllModels()  | ||
  {{APIComment|'Output sample: Display the number of   |   {{APIComment|'Output sample: Display the number of models in the array.}}  | ||
    {{APIPrefix|Dim}} NumberofElements {{APIPrefix|As}} Integer  |     {{APIPrefix|Dim}} NumberofElements {{APIPrefix|As}} Integer  | ||
    NumberofElements = UBound(ListofModels) - LBound(ListofModels) + 1  |     NumberofElements = UBound(ListofModels) - LBound(ListofModels) + 1  | ||
    MsgBox (NumberofElements)  |     MsgBox (NumberofElements)  | ||
Latest revision as of 18:53, 9 June 2016
![]()  | 
Member of:  SynthesisAPI.Repository   
Returns an array of cModel objects that represent the model resources in the current project. 
Syntax
.Model.GetAllModels(Filter)
Parameters
Filter
- Optional. A filter that returns a particular type of resource (e.g., global only, local and global only, etc.). Can be any ResourceFilterEnum constant. Default value = 0, which returns local resources only.
 
Example
This example assumes that models exist in the first available project of a repository.
VBA|VB.NET 'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10") 'Get a list of all local models in project #1. Dim ListofModels() As cModel MyRepository.Project.SetCurrentProject (1) ListofModels = MyRepository.Model.GetAllModels() 'Output sample: Display the number of models in the array. Dim NumberofElements As Integer NumberofElements = UBound(ListofModels) - LBound(ListofModels) + 1 MsgBox (NumberofElements)
