JRSpellChecker

Function:

returns a list with synonyms (word with the same meaning).

Note! this function returns only a value, if MS-Word dictionary is selected.

Syntax:

JRSpell1.GetSynonyms xWord, xSynonyms

xWord

return a synonym for this word.

xSynonyms

list with alternate words.

Return value:

True if synonyms was found.

Fires no event.

Example:

Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If RichTextBox1.SelLength = 0 Then Exit Sub
Dim ref As String
Dim alternativ As Variant
Dim n As Integer

'not supported if lokal wordbook is active
If JRSpell1.UsedWordbook = LokalWordBook Then Exit Sub


startsel = RichTextBox1.SelStart
ref$ = Mid$(RichTextBox1.Text, startsel + 1, RichTextBox1.SelLength)


If Right$(ref$, 1) = " " Then
  RichTextBox1.SelLength = RichTextBox1.SelLength - 1
End If

List1(0).Clear
List1(1).Clear
List1(2).Clear

If JRSpell1.GetMeanings(ref$, alternativ) Then
  For n = 0 To UBound(alternativ)
      If alternativ(n) <> "" Then List1(0).AddItem alternativ(n)
  Next n
End If

If JRSpell1.GetSynonyms(ref$, alternativ) Then
  For n = 0 To UBound(alternativ)
      If alternativ(n) <> "" Then List1(1).AddItem alternativ(n)
  Next n
End If

If JRSpell1.GetAnagrams(ref$, alternativ) Then
  For n = 0 To UBound(alternativ)
      If alternativ(n) <> "" Then List1(2).AddItem alternativ(n)
  Next n
End If

If JRSpell1.GetAntonyms(ref$, alternativ) Then
  For n = 0 To UBound(alternativ)
    If alternativ(n) <> "" Then List1(3).AddItem alternativ(n)
  Next n
End If
End Sub