ImagesOperatorsTotalImageCount Method |
![]() |
Namespace: MediaCy.IQL.Operators
<ExtensionAttribute> Public Shared Function TotalImageCount ( images As McImages ) As Integer
'Here is a way to do it using the McObjects collection Sub CountImages() ThisApplication.Output.Show ("Output") Dim lCollectionCount As Long, lAllImagesCount As Long lCollectionCount = ThisApplication.Images.Count ThisApplication.Output.PrintMessage "---> Images in Images collection: " & Str(lCollectionCount) Dim nI As Long For nI = 0 To lCollectionCount - 1 ThisApplication.Output.PrintMessage Str(nI) & " Image Name: " & ThisApplication.Images(nI).Name Next nI ThisApplication.McObjects.SetEnumFilters McCatImage, , , , ThisApplication.McObject(Images) lAllImagesCount = ThisApplication.McObjects.Count ThisApplication.Output.PrintMessage "--> All images: " & Str(lAllImagesCount) Dim mcobjImage As McObject, nO As Long For Each mcobjImage In ThisApplication.McObjects ThisApplication.Output.PrintMessage Str(nO) & " McObject Name: " & mcobjImage.Name nO = nO + 1 Next mcobjImage End Sub 'CountImages