SelectLanguages Example for Visual Basic
Private Sub Command13_Click()
Dim nRet As Integer
RasterDoc.ActiveLanguagesCount = 1
RasterDoc.ActiveLanguage (0) = LANGID_ENGLISH
nRet = RasterDoc.SelectLanguages
If nRet <> 0 Then
MsgBox "Couldn't set the English as default language"
End If
RasterDoc.LanguageCharacterPlus = "Test Plus"
RasterDoc.LanguageCharacterPlusFilter = "Test Plus Filter"
If RasterDoc.LanguageCharacterFilter <> CHAR_FILTER_ALL Then
RasterDoc.LanguageCharacterFilter = CHAR_FILTER_ALL
End If
End Sub