Zur Startseite

JRSpellChecker

Zur Homepage

SpellCheckWords(ByVal xhwnd As Long, ByVal Startpos As Variant, ByVal controllltype As Bindto) As Boolean

Funktion:

prüft das Wort ab der angegebenen Position. Verwenden Sie diese Funktion z.B wenn Sie einen eigenen Dialog zur Korrektur verwenden wollen.

       

ico_syntax   Syntax:

JRSpell1.SpellCheckWords x.hwnd, startpos, xtype

x.HWND

HWND des RTF-Steuerelements, der Textbox oder des Textcontrols

x.type

xRtf_Control=1, xText_Box=2, xTX_Textcontroll=3; NetRtf_Control=11

startpos

starte mit Prüfung an dieser Position

ico_weitere Rückgabewert:


True wenn geprüft werden konnte

löst SpellCheckWord Event aus

Beispiel:

    Private Sub CheckWords()
      'Demo How to Add a user-defined Dialog
      'clear all marks
      JRSpell1.ClearAllSelections RichTextBox1.hWnd, Rtf_Control
      countwords = 0
      mystartpos& = 0
    weitsuch:
      JRSpell1.SpellCheckWords RichTextBox1.hWnd, mystartpos&, Rtf_Control
      'if a incorrect Word was found, then show a Dialog
      If mystartpos& > 0
    Then
        MsgBox lastbadword$
        GoTo weitsuch
      Else
        'clear all marks
        JRSpell1.ClearAllSelections RichTextBox1.hWnd, Rtf_Control
      End If
    End Sub

    Private Sub JRSpell1_SpellCheckWord(CheckedWord As String, SpellChecked As Boolean)
    If SpellChecked = False Then
      lastbadword$ = CheckedWord
    End If
    End Sub