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.
|
|
|
|
|
|
|
|
|
|
|
       
|
  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
|
|
|
|
|
|
|
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
|
|
|