DefaultSpellLanguagesCount Example for Visual Basic

Private Sub Command15_Click()
   Dim nLangCount As Long
   
   nLangCount = RasterDoc.DefaultSpellLanguagesCount
   MsgBox "Total Default Spell Languages = " + Str(nLangCount) 
   

   If nLangCount > 0 Then
   
      If (RasterDoc.RecognizeModuleTradeoff <> RECOG_MODULE_ACCURATE) Then
         RasterDoc.RecognizeModuleTradeoff = RECOG_MODULE_ACCURATE
      End If

      RasterDoc.EnableSubSystem = True
      RasterDoc.EnableCorrection = True
      RasterDoc.SpellLanguageID = RasterDoc.DefaultSpellLanguages (0) 
      RasterDoc.EnableFireRecognizeStatus = True
      RasterDoc.EnableSaveResultsToMemory = True
      RasterDoc.RecognitionDataFileName = "c:\test.rdf"

      RasterDoc.Recognize 0, 1
   End If
End Sub