CIMTranslations.Count (read-only property)

Gets the number of CIMTranslation objects in the collection.
Syntax: long = object.Count
Description: Gets the size of the array used to hold translations. There may be some translations within this count that are Nothing. The index of the translation corresponds to the index of the CIMLanguage in the CIMLanguages collection that the particular translation is for. If there is no tranlation for that CIMLanguage the object retrieved will will be Nothing.


Sub Translations_Example()
    Dim oLangMap As CIMLangMapper.CIMLangMap
    Dim oTranslationGroup As CIMLangMapper.CIMTranslationGroup
    Dim oTranslation As CIMLangMapper.CIMTranslation
    Dim oTranslations As CIMLangMapper.CIMTranslations
    Dim Index As Long
    Set oLangMap = CreateObject("CIMLangMapper.CIMLangMap")
    oLangMap.Load "c:\trans.clm"
    Set oTranslationGroup = oLangMap.LookupTranslationGroup("Wheel bearing")
    if Not oTranslationGroup Is Nothing Then
      Set oTranslations = oTranslationGroup.Translations
      For Index = 0 to oTranslations.Count - 1
        Set oTranslation = oTranslations.Item(Index)
        if Not oTranslation Is Nothing Then
          MsgBox oTranslation.Value
        End If
      Next Index
    End If
End Sub