ChangeWord(ByVal NewWord As String)
|
Description:
|
|
|
|
this event will be fired, if the user want to change a selected word with the internal correction dialogue. (SpellCheckWithDialog)
The correction dialogue selects the incorrect word. To change the word, you must write a own function (see example).
|
|
|
|
|
|
|
|
|
|
|
       
         
|
Return value:
|
|
|
|
NewWord
|
the new word to use.
|
|
|
Example RTF-Control:
|
|
|
Private Sub JRSpell1_ChangeWord(NewWord As String)     Form1.RichTextBox1.SelText = NewWord     'If we want select the changed word     'Form1.RichTextBox1.SelStart = JRSpell1.SpellInfo_SelStartpos     'Form1.RichTextBox1.SelLength = JRSpell1.SpellInfo_SelLength +JRSpell1.SpellInfo_StartposOffset End Sub
|
|
|
Example TX-Textcontrol:
|
|
|
Private Sub JRSpell1_ChangeWord(NewWord As String) TXTextControl1.SelText = NewWord 'If we want select the changed word 'TXTextControl1.SelStart = JRSpell1.SpellInfo_SelStartpos 'TXTextControl1.SelLength = JRSpell1.SpellInfo_SelLength+JRSpell1.SpellInfo_StartposOffset End Sub
|
|
|
Example Textbox:
|
|
|
Private Sub JRSpell1_ChangeWord(NewWord As String)   Text1.SelText = NewWord   'If we want select the changed word   'Text1.SelStart = JRSpell1.SpellInfo_SelStartpos   'Text1.SelLength = JRSpell1.SpellInfo_SelLength +JRSpell1.SpellInfo_StartposOffset End Sub
|
|
|