Zur Startseite

JRSpellChecker

Zur Homepage

GetAlternate(ByVal word As String, ByVal Alternates As Variant) As Boolean

Funktion:

gibt eine Liste mit alternativen zu einem Wort zurück.

       

ico_syntax   Syntax:

JRSpell1.GetAlternatexWord, xAlternate

xWord

Wort für welches alternativen gesucht werden.

xAlternate

Wortliste die zurückgegeben wird.

         

ico_weitere 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