EnableStopRecognizeStatus Example for Visual Basic

Private Sub RasterDoc_RecognitionStatus (ByVal iRecogPage As Integer, ByVal iError As Integer)
   Dim strBuffer As String
   
   strBuffer = "Recognized page index = " + CStr(iRecogPage) + Chr$(13) + _
               "Recognition Return value = " + CStr(iError) 
   MsgBox strBuffer
   RasterDoc.EnableStopRecognizeStatus = False
End Sub

Private Sub Command15_Click()
   Dim nLangCount As Long
   
   nLangCount = RasterDoc.DefaultSpellLanguagesCount
   MsgBox "Totat 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