按下回车键时禁用声音以在richtextbox上附加文本

Question

我的设计表单中有这个。

我的代码如下

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    RichTextBox1.AppendText(TextBox1.Text)
End Sub

Private Sub TextBox1_Keyup(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyUp
    If e.KeyCode = Keys.Enter Then
        Call Button2_Click(sender, e)
    End If
End Sub

问题是当我单击文本框，在其中输入内容然后按 Enter 时，我会听到哔哔声。那个声音是我想要禁用的。

我还注意到，如果我只是在文本框中键入并单击按钮，我听不到任何声音，每当我单击文本框，在其中输入内容并按 Enter 键时都会发出声音。

编辑：

通过深入研究，我意识到叮叮声不是来自按下按钮，而是来自 Richtextbox 的最后一行。当我们按下 key_down 并且我们在富文本框的最后一行时，我们可以听到相同的声音。 How do I disable it?

Answer 1

只需将窗体的AcceptButton() 属性设置为Button2。那么你根本不需要 KeyUp 代码：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.AcceptButton = Button2
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    RichTextBox1.AppendText(TextBox1.Text)
End Sub

' Don't need this code anymore:
'Private Sub TextBox1_Keyup(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyUp
'    If e.KeyCode = Keys.Enter Then
'        Call Button2_Click(sender, e)
'    End If
'End Sub