GetAlternate(ByVal word As String, ByVal Alternates As Variant) As Boolean
|
Funktion:
|
|
|
|
gibt eine Liste mit alternativen zu einem Wort zurück.
|
|
|
|
|
|
|
|
|
|
|
       
|
  Syntax:
|
|
|
|
|
JRSpell1.GetAlternatexWord, xAlternate
|
|
|
xWord
|
Wort für welches alternativen gesucht werden.
|
|
|
xAlternate
|
Wortliste die zurückgegeben wird.
|
|
|
|
|
|
|
|
|
|
         
|
Rückgabewert:
|
|
|
|
|
True wenn alternativen gefunden wurden.
löst kein Event aus.
|
|
|
Beispiel:
|
|
|
Public Function getotherwords()
Dim ref As String Dim xword As String Dim tested As Boolean Dim alternativ As Variant Dim n As Integer
List1.Clear
If Form1.JRSpell1.GetAlternate(lastmisspelledword, alternativ) Then   On Error Resume Next   For n = 0 To UBound(alternativ)     List1.AddItem alternativ(n)   Next n End If
End Function
|
|
|