ISDictionary.Entry

Description

This property returns the entry of the dictionary by its index in the list.

Syntax

object.Entry(Index)

Part	Attribute	Type	Description
`object`	Required	ISDictionary	The `object` always implements the ISDictionary interface
`Index`	In, Required	int	The index of the dictionary entry

Restriction: This property is readonly.

Return Value

ISDictionaryEntry

Example

Display the name of the dictionary, the list of dictionary entries and some information about them.

Dim aDictionary
Dim aAllEntries, aEntry
Dim aDictInfo
Dim i

Set aDictionary = Profile.GetDictionary("Legal")
set aAllEntries = aDictionary.AllEntries  

aDictInfo = _
  "Dictionary name: " & aDictionary.Name & vbNewLine &_  
  "Entry Count: " & aAllEntries.Count & vbNewLine & vbNewLine &_ 
  "#  Main Sing.    Main Plur.    Abbr. Sing.    Abbr. Plur."  

for i = 0 to aAllEntries.Count - 1
  set aEntry =  aAllEntries.Item(i) 
  aDictInfo = aDictInfo & vbNewLine & (i + 1) & ") " &_
    aEntry.SingleMain & "           " & aEntry.PluralMain & "        " &_
    aEntry.AbbrSingleMain & "                 " & aEntry.AbbrPluralMain         
next

Profile.MsgBox(aDictInfo)

Note:

In Profile Client v8 on User Interface the dictionary entry can be found in Maintain > Lexicon.

Version information

Added in v7.8.0