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