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.

Example:

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