按回车键，使别的文本框得到焦点，怎么会有类似“BEEP"的声音，哐的一轻声

Question

Private Sub txtZy_KeyDown(KeyCode As Integer, Shift As Integer)
    if KeyCode = vbKeyDown Or KeyCode = 13 Then
        txtJkr.SetFocus   '获得焦点
        SendKeys "{home}+{end}"
     End If
End Sub如何消除呢

Answer 1

Private Sub txtJkr_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then KeyAscii = 0
End SubPrivate Sub txtZy_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyDown Or KeyAscii = 13 Then
        txtJkr.SetFocus   '获得焦点
        SendKeys "{home}+{end}"
        KeyAscii = 0
    End If
End Sub

Answer 2

KeyAscii = 0
多加一个这个 可以祛除那一声响

Answer 3

Private Sub txtJkr_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0
End SubPrivate Sub txtZy_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyDown Or KeyAscii = 13 Then
txtJkr.SetFocus '获得焦点
SendKeys "{home}+{end}"
KeyAscii = 0
End If
End Sub

Answer 4

晕
clear_zero(clear_zero)一个月一千几百分不是靠复制粘贴得到的吧?