2

我正在使用visual basic。我如何创建一个函数以在键入时从单词列表中读取并在编写时用可能完成的单词替换任何单词。像一个 t9 文本功能。这是我正在使用的代码。

Public Class Keyboard2
Private Property dval As Integer

Private Sub GoToNext_Click(sender As Object, e As EventArgs) Handles GoToNext.Click
    'when this button is pressed the next possible word will be genereated and will replace the previous word by calling the "GetWord" Sub
    GetWord()
End Sub


Private Sub GetWord()
    dval = dval + 1 ' this value is used to  ensure that there can be no error in word replacement and it separates each change. 
    Dim lastWord As String = RichTextBox1.Text.Split(" ").Last ' get the last word entered in the text box
    If dval = 1 AndAlso RichTextBox1.Text.EndsWith("top") AndAlso lastWord = "top" Then
        'To change the last word to the next possible word
        RichTextBox1.Text = String.Concat(RichTextBox1.Text.Remove(RichTextBox1.Text.Length - lastWord.Length), "topmost")
    End If
    If dval = 2 AndAlso RichTextBox1.Text.EndsWith("topmost") AndAlso lastWord = "topmost" Then
        RichTextBox1.Text = String.Concat(RichTextBox1.Text.Remove(RichTextBox1.Text.Length - lastWord.Length), "topping")
    End If
    If dval = 3 AndAlso RichTextBox1.Text.EndsWith("topping") AndAlso lastWord = "topping" Then
        RichTextBox1.Text = String.Concat(RichTextBox1.Text.Remove(RichTextBox1.Text.Length - lastWord.Length), "top")
        dval = 0
    End If
End Sub

End Class

这种方法可能对某些人有用，我希望你会喜欢它，但对我来说这是一种非常糟糕的方法，因为我必须手动输入数千个单词。

我会用数据库做这个吗？有没有人有任何例子。谢谢你的时间。

4

2 回答 2

2

在 .NET 中为您实现了所需的功能。只需执行以下操作：

1) 将TextBox.AutoCompleteSource属性设置为true

2) 将TextBox.AutoCompleteMode属性设置为Suggest

3）从文件中加载单词列表（你会在网上找到足够的）并将其设置为TextBox.AutoCompleteCustomSource与此类似的属性：

    Dim MySource As New AutoCompleteStringCollection()
MySource.AddRange(New String() _
                    { _
                        "January", _
                        "February", _
                        "March", _
                        "April", _
                        "May", _
                        "June", _
                        "July", _
                        "August", _
                        "September", _
                        "October", _
                        "November", _
                        "December" _
                    })

textbox1.AutoCompleteCustomSource = MySource
于 2013-05-26T22:08:53.350 回答
1

我认为您最好的选择是在应用程序启动时加载到内存中的文本文件。我想您希望在运行时在文本框当前胡萝卜位置的位置创建一个列表框（加上一些 x 和 y，以便文本框在列表框上方/下方清晰可见），然后您可以拥有所有可能的选项供用户单击正确答案的列表框。这是你要找的东西吗？

这是您可以使用的字典文本文件的链接，尽管它需要一些处理才能仅包含单词：

http://www.gutenberg.org/files/29765/29765-8.txt

于 2013-05-26T21:53:29.197 回答