RC-WinTrans Object Model Help |
LanguageTool.GetAllLanguageCodes |
Returns an array with all known language codes.
Syntax: |
GetAllLanguageCodes(LanguageCodeArray As Variant) As Boolean |
Return: | Boolean |
Parameters: |
LanguageCodeArray Array into which all language codes are written.
|
Example: | ' in a UserForm with a ComboBox Private Sub UserForm_Activate() Dim LangCodeAry() As Variant Dim Tool As LanguageTool Dim RetVal As Boolean Dim i As Integer Set Tool = Application.Tools.LanguageTool RetVal = Tool.GetAllLanguageCodes(LangCodeAry) For i = 0 To UBound(LangCodeAry) ComboBox1.AddItem (LangCodeAry(i)) Next i End Sub |
See also: