ISLanguageUtils.TranslateByDictToLang

Description

This function translates the text from the user interface language to the specified language.

Syntax

object.TranslateByDictToLang(aDictionaryId, aText, aLanguageCode)

Part	Attribute	Type	Description
`object`	Required	ISLanguageUtils	The `object` always implements the ISLanguageUtils interface
`aDictionaryId`	In, Required	int	ID of the dictionary
`aText`	In, Required	string	The text that should be translated
`aLanguageCode`	In, Required	string	The language code

Return Value

string

Returns the translation of the text from the user interface language to the specified language.

Example

Display the specified text translated to French.

sub Main()
  Dim aLanguageUtils
  Dim aPatient
  Dim aMessage

  Set aLanguageUtils = Profile.LanguageUtils
  set aPatient = Profile.SelectPatient
  
  aMessage = t("Age") & ": " & aPatient.Age & vbNewLine &_
    t("DOB") & ": " & aPatient.DOB & vbNewLine &_
    t("FileNum") & ": " & aPatient.FileNum & vbNewLine      
   
  Profile.MsgBox(aMessage)
end Sub

function t(aText)
  
  t =  Profile.LanguageUtils.TranslateByDictToLang(1, aText, "FR")
end function

Note:

Version information

Added in v7.9.0