如何在keydown事件中禁止系统继续KeyPress事件？

[Equn]

textbox控件中，我需要在keydown事件中检测一个按键，当按一个键时就加入一个文本串，并且取消当前按键。

即快捷键功能。

[88391788]

楼主这是不是你要的
Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.Text = ""
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
Beep
Text1.Text = "您的输入有误！"
End If
End Sub


具体asc 可查阅相关帮助

[Equn]

to 88391788(A P-Designer):
谢谢你的热情，但不是我所需要的。

[happy_sea]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =n Then 'n为你的快捷键的ascii码
KeyAscii = 0
Text1.SelText = s 's为你要添加的字符串
End If
End Sub

[dongge2000]

开心海的就行啊！

[lsftest]

用子类试试。。。。。。。。。

[lsftest]

最彻底的方法：
用子类，把文本框的keydown、keyup消息都拦截下来，然后根据拦截下来的数据分析是否触发文本框的keydown事件。。。。

[固执的大叔]

Option Explicit
Dim s As String
Dim n As Integer

Private Sub Form_Load()
s = ""
n = X 'X为快捷键的ascii码常数
Text1 = ""
Text1.Locked = True
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Asc(Chr(KeyCode)) <> n Then
s = s & Chr(KeyCode)
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = n Then 'n为你的快捷键的ascii码
KeyAscii = 0
Text1.SelText = s 's为你要添加的字符串
Text1.Locked = False
End If
End Sub

代码已经通过测试!!!

[happy_sea]

在text控件中不用那么麻烦吧?...