按下回车键时禁用声音以在 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

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

我还注意到，如果我只是在文本框中键入内容并单击按钮，我听不到声音，每当我单击文本框、在其中键入内容并按下回车键时，声音就会出现。

编辑：

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

Answer 1

只需将Form的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

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

Disable sounds when pressed enter key to append text on richtextbox

vb.net

richtextbox