[已解决]怎样看到TextBox1_KeyUp的效果？

Select

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox 1
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox 2
End Sub

222.rar (8.55 KB, 下载次数: 46)

2012-1-4 16:35 上传

点击文件名下载附件

不知道怎样才会弹出2来？谢谢！

最佳答案

月排行榜 / 总排行榜

liuguansky

2012-1-4 16:42

Debug.Print试试
因为你点确定的时候，又激活了按键。你可以尝试按很快很快，就可以看到有2出现。

跳转到最佳答案楼层

liuguansky

Debug.Print试试
因为你点确定的时候，又激活了按键。你可以尝试按很快很快，就可以看到有2出现。

Select

谢谢liuguansky ！

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Debug.Print 1
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Debug.Print 2
End Sub

改成这样，就可以看到效果了。
如果msgbox方式，再怎么按，也只是弹1{:141:}

Select

不过，又一想还是觉得有点问题。

就算是由于快的原因，它还是得弹2出来呀？效果就是确定1后，立刻，只能，接着确定2。我觉得这样分析很有道理呀

simengzhixia

Select 发表于 2012-1-4 17:04
不过，又一想还是觉得有点问题。

就算是由于快的原因，它还是得弹2出来呀？效果就是确定1后，立刻，只能 ...

应该是触发MSGBOX 1那个程序后，就END 了，根本就没触发到MSGBOX2那个程序呀，I think so

Select

simengzhixia 发表于 2012-1-4 17:56
应该是触发MSGBOX 1那个程序后，就END 了，根本就没触发到MSGBOX2那个程序呀，I think so

按3楼，改为debug.print方式，可看到效果先KeyDown再KeyUp。

为什么没msgbox 2？我觉得是别的原因，不是没触发的原因。

Select

我又试了下：

输入一个字符，点确定，飞快又敲个字符，又点确定 。。。。 反复多次，是有看到过2的鬼影，我的键盘哦{:031:}