为何keypress执行两次？

[Dublue]

我在form中写了这么一条语句：
Private Sub Form_KeyPress(KeyAscii As Integer)
If cmdSave.Enabled = True And KeyAscii = 19 then
MsgBox "haha"
End If
End Sub
执行后按Ctrl+S
结果msgbox弹出两次？？？不知为何？

[yedapeng]

请问：你的cmdsave是不是在窗体上？

[planetike]

这里可能问题在cmdsave 上，你试试去掉这东西，只会msgbox一次的。

[danielinbiti]

可能其他地方的KEYPRESS,KEYDOWN,KEYUP有相关的代码或者由地方调用这个事件过程吧
但这段代码没什么问题吧，至少我试了没问题

[Dublue]

cmdSave是个保存按钮，在窗体上，不能去掉呀

[Dublue]

我单步跟踪，发现keypress事件被连续执行了两次！！
详细过程是：判断if条件-〉取得cmd属性-〉msgbox->结束-〉再来一次

[Dublue]

我写msgbox "haha"是为了测试，其它地方没有调用

[xiamei]

大哥，借宝地一用，或者你教教我，我下面的程序不能执行。
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
For Index = 0 To 4
If KeyAscii = 13 Then
SendKeys "{TAB}"
End If
Next Index
End Sub

[cngxylyh]

楼主，你将keypress改成keydown或者keyup试试？效果是一样的。

楼上的如何不能执行，现象如何？说清楚啊！

[慕容红雪]

把cmdSave.Default=true改成false。

[xiamei]

to cngxylyh(olo):
我的目的是从0开始，输完一个文本框后按回车键进入下一个文本框。
文本框是控件数组。
我的代码不听话，不实现功能。
谢谢。

[Dublue]

to MrRedSnow(慕容红雪)，是false，但没用；最后我只好把代码写在其它控件的keypress事件里，这样虽能实现同样功能，但麻烦些，很多控件都要加，不如写在form里方便，范围大

[Dublue]

to xiamei()，sendkeys的使用要在控件获得焦点之后，这样写试试：
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
For Index = 0 To 4
If KeyAscii = 13 Then
text1(index).setfocus
SendKeys "{TAB}"
End If
Next Index
End Sub