ChangeWord(ByVal NewWord As String)
|
Beschreibung:
|
|
|
|
Dieses Ereignis wird immer dann ausgelöst, wenn mit dem internen Korrekturdialog (SpellCheckWithDialog) ein markiertes Wort durch ein neues ersetzt werden soll.
Der Korrekturdialog selektiert zwar das fehlerhafte Wort, der Austausch des Textes muss jedoch in einer eigenen Routine erfolgen siehe Beispiel.
|
|
|
|
|
|
|
|
|
|
|
       
         
|
Rückgabewert:
|
|
|
|
NewWord
|
Wort das anstelle des aktuell angewählten verwendet werden soll.
|
|
|
Beispiel 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
|
|
|
Beispiel 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
|
|
|
Beispiel 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
|
|
|