Repository.Xfmea.GetAllItemsInSystemHierarchy Method: Difference between revisions
Jump to navigation
Jump to search
Kate Racaza (talk | contribs) mNo 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 '''[[XfmeaItem Class|XfmeaItem]]''' objects that represent the system hierarchy items in the current project.</onlyinclude> | ||
== Syntax == | == Syntax == | ||
| Line 13: | Line 13: | ||
'''VBA|VB.NET''' | '''VBA|VB.NET''' | ||
{{APIComment|' | {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}} | ||
{{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}}) | |||
{{APIComment|'Get a list of all system hierarchy items in project #1.}} | {{APIComment|'Get a list of all system hierarchy items in project #1.}} | ||
{{APIPrefix|Dim}} ListofItems() {{APIPrefix|As}} XfmeaItem | |||
MyRepository.Project.SetCurrentProject (1) | |||
ListofItems = MyRepository.Xfmea.GetAllItemsInSystemHierarchy() | |||
{{APIComment|'Output sample: Display the number of | {{APIComment|'Output sample: Display the number of system hierarchy items in the project.}} | ||
{{APIPrefix|Dim}} NumberofElements {{APIPrefix|As}} Integer | |||
NumberofElements = UBound(ListofItems) - LBound(ListofItems) +1 | |||
MsgBox (NumberofElements) | |||
Latest revision as of 18:30, 9 June 2016
 |
Member of: SynthesisAPI.Repository
Returns an array of XfmeaItem objects that represent the system hierarchy items in the current project.
Syntax
.Xfmea.GetAllItemsInSystemHierarchy()
Example
This example assumes that system hierarchy items 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 system hierarchy items in project #1. Dim ListofItems() As XfmeaItem MyRepository.Project.SetCurrentProject (1) ListofItems = MyRepository.Xfmea.GetAllItemsInSystemHierarchy() 'Output sample: Display the number of system hierarchy items in the project. Dim NumberofElements As Integer NumberofElements = UBound(ListofItems) - LBound(ListofItems) +1 MsgBox (NumberofElements)