OpenSpellCheckDialog(ByVal TestWord As Variant) As Boolean
Note: Up from Version2 TestWord has changed from String to Variant
|
Function:
|
|
|
|
opens the corrections dialogue to spell check a word. Please use this function if you want to build your own correction dialogue
to spell check a complete document please use SpellCheckWithDialog
|
|
|
|
All dialoges can be viewed in different languages look at the UILanguage setting.
|
|
|
|
|
|
|
       
|
change a word:
- the user can change the word in the edit field directly.
- or selct the new word in the list and transfer them with the spacebar to the editfield.
changed the word in your document:
- if you are in the edit field, press the input key.
- press the "use this Word" button.
- double click on a word in the list.
 
|
|
|
|
|
|
|
|
         
You can set some style flags for the correction window.
JRSpell1.CorrectionDialogActions=SearchNextAfterClickList & ShowAddButtonLokalWordBook & ShowAddButtonMSWord & ShowChangeButton & ShowIgnoreAllButton& ShowChangeAllButton
|
Syntax:
|
|
|
|
|
JRSpell1.OpenSpellCheckDialog xWord
|
|
|
xWord
|
Word to spell check.
|
|
|
|
|
|
|
|
|
|
       
|
  Return value:
|
|
|
|
|
True if the user select "Next".
fires the ChangeWord event if
the user presses the "Use this Word" Button the input key in the editfield or double click a item in the list.
|
|
|
Example:
|
|
|
If JRSpell1.OpenSpellCheckDialog("Hello") Then 'user has presed the next button" End If
Private Sub JRSpell1_ChangeWord(newword As String) textchange (newword) End Sub
Public Function textchange(newword$) If Form1.RichTextBox1.SelLength > 0 Then   oldselstart = Form1.RichTextBox1.SelStart   newsellength = Len(Trim$(newword$)) End If
Form1.RichTextBox1.SelText = Trim$(newword$) If newsellength > 0 Then   Form1.RichTextBox1.SelStart = oldselstart Form1.RichTextBox1.SelLength = newsellength End If End Function
|
|
Note: Use in .Net or Web applications the ShowModalForm switch of CorrectionDialogActions.
|