VB6 的KeyPress事件

Question

我的程式
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
If Text1.Text = "" Then Exit Sub
Text2.Text = Text1.Text
Text1.Text = ""
End If
End Sub
練習用的，可是我每次按下Enter電腦就會發出咚咚咚的聲音，
我不知道是哪邊的問題，知道的人可以幫我解答嗎？

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)    If KeyAscii = vbKeyReturn Then       KeyAscii = 0 '加這一行就不會咚       If Text1.Text = "" Then Exit Sub       Text2.Text = Text1.Text       Text1.Text = ""    End IfEnd Sub

Answer 2

印象中,KeyDown是依手的速度,觸發N次,通常用於按下方向鍵作物件移動
KeyPress只有一次,通常用於檢查資料輸入

Answer 3

這不是你的問題吧電腦本身就會發出這種聲音的所以你的程式是沒錯誤的