问题如下:

If KeyAscii = 13 Then SendKeys "{Tab}"

我想在一个文本框中回车实现进入下一个文本框用了以上的代码,但为什么我一点回车就会有一声提示音,很是难听,而如果直接点击TAB就不会有提示音,哪位高手帮帮忙???

谢谢

if keyascii=13 then text1.setfocus 這樣就應該 沒有聲音了

其实还是有声音的,后来我在网上查了一下,发现应该是这样实现的:

Private Sub txtfax_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then
KeyAscii = 0
SendKeys "{Tab}"
End If

End Sub

加一条KEYASCII=0就可以了.

我的是这样的，也碰到这样的情况。
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then '实现光标转移

Text2.SetFocus
  End If
End Sub
但按你的做了后没解决。望讨教。谢谢！

楼上的把全部的代码发上来看看