请问给KeyDown添加新的功能，如何实现？

Question

CheckDown实现了什么功能，我试试

Answer 1

比如：
If KeyCode=vbKeyDelete Then MsgBox "PressKey:Deletc!"
当然，实际不是如此。
我是想在检测到某个键时，触发一个事件。

Answer 2

问一下，为什么你还要RaiseEvent KeyDown,在KeyDown 事件里在触发一次KeyDown事件吗？
有可能问题就出在这里。

Answer 3

就象上面的例子一样，因为我程序里要处理一个键，每个TextBox的KeyDown都要重复这些语句，所以我想做成控件，但就出问题，又是刚学VB，所以搞不懂。
又如：做一个只能输数字的控件，也需要在KeyPress或KeyDown中加一些相关的处理语句呀。应该怎么做，请指教！！！

Answer 4

不要用KeyDown，我认为检测KeyPress比较好。
只能输数字只要检测KeyPress是否在0-9的范围里就行了。
vbKeyDelete 等控制符在KeyDown里是………………·#￥%……—*（）
你只能用KeyPress！！！

Answer 5

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then MsgBox "笨蛋", vbOKOnly, "去死吧!": KeyCode = 0'不让其实现其功能键。
End Sub

Answer 6

QQRN(笨QQ)　SORRY!!!
请看我结束这个帖子后的另一个帖子!!!