[已解决]求教：退格键为什么不能响应Keypress事件

dantonesque

如题，测试如下代码，按1键会变成0，按退格键却没反应，是不是因为它是控制符？那如何使退格键响应KEYPRESS事件呢？


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 49 Then KeyAscii = 48
If KeyAscii = 8 Then KeyAscii = 48
End Sub

最佳答案

月排行榜 / 总排行榜

snrvgbb

2011-11-3 15:56

试一下：

1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. If KeyCode = vbKeyBack Then MsgBox "你按了回车键!"
   
3. End Sub

复制代码

跳转到最佳答案楼层

liuguansky

MSDN：
在按下与 ASCII 字符对应的键时将触发 KeyPress 事件。ASCII 字符集不仅代表标准键盘的字母、数字和标点符号，而且也代表大多数控制键。但是 KeyPress 事件只识别 ENTER、TAB 和 BACKSPACE 键。KeyDown 和 KeyUp 事件能够检测其它功能键、编辑键和定位键。
退格键-> 8 删除键-> 46

dantonesque

谢谢回复，既然能响应退格键，为啥我那个代码没响应呢？

snrvgbb

试一下：

1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. If KeyCode = vbKeyBack Then MsgBox "你按了回车键!"
   
3. End Sub

复制代码