按下空格键时如何清除文本框的所有内容？ VB.Net

Question

我正在创建一个简单的打字测试程序。

我希望空格键触发检查输入的单词是否正确，然后清除文本框的内容。

这里发生的是第一个输入的单词将起作用并在按下空格键时被计数并且输入的单词将被清除，但空格字符仍然存在，因此下一个输入的单词将包含一个空格字符并且将被错误读取。

我尝试交换应该放置txtInput.Clear()的位置，但导致了同样的问题。

Private Sub txtInput_TextChanged(sender As Object, e As KeyEventArgs) Handles txtInput.KeyDown

    If e.KeyValue = Keys.Space Then
        Space()
    End If

End Sub

Public Function Space()

    If txtInput.Text = txtWord.Text Then
        ctr = CInt(txtWord.TextLength)
        charTotal = charTotal + ctr
        lblScore.Text = charTotal.ToString
    End If

    txtInput.Clear()
    txtWord.Text = rdmWord()

End Function

Answer 1

在KewDown Event中， TextBox的值尚未设置。 因此，使用KeyUp Event ，如下面的代码所示

Private Sub txtInput_KeyUp(sender As Object, e As KeyEventArgs) Handles txtInput.KeyUp
    If e.KeyValue = Keys.Space Then
        Space()
    End If
End Sub

Answer 2

您还可以覆盖ProcessCmdKey并在此处捕获空格键：

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, keyData As Keys) As Boolean
    If keyData = Keys.Space Then
        If Me.ActiveControl Is txtInput Then
            Space()
            Return True ' suppress space
        End If
    End If
    Return MyBase.ProcessCmdKey(msg, keyData)
End Function

如果要允许空格或输入，则更改为：

    If keyData = Keys.Space Or keyData = Keys.Enter Then