标题:有一问题请教一下
取消只看楼主
SPKLJL
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2008-9-19
 问题点数:0 回复次数:2 
有一问题请教一下
问题如下:

If KeyAscii = 13 Then SendKeys "{Tab}"

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

谢谢
2008-10-22 11:24
SPKLJL
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2008-9-19
得分:0 
其实还是有声音的,后来我在网上查了一下,发现应该是这样实现的:

Private Sub txtfax_KeyPress(KeyAscii As Integer)

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

End Sub

加一条KEYASCII=0就可以了.
2008-10-22 14:19
SPKLJL
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2008-9-19
得分:0 
楼上的把全部的代码发上来看看
2008-10-22 17:15



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-239791-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.626260 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved