Question

VB怎么禁止键盘的所有按键,最好是XP,WIN7等系统都有效的代码

Answer 1

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <> Chr(0) Then
MsgBox "你按下的按键无效"
End If
End Sub

追问

没有用呢

追答

Private Sub Text1_keypress(keyascii As Integer)
If Text1.Text "" Then
keyascii = 0
End If
End Sub

追问

那个 代码这样使用不行吗
Private Sub Command1_Click()
If Text1.Text "" Then
keyascii = 0
End If
End Su

追答

我想应该不行，在说了，键盘输入只能体现在 text中，你还不如直接写成：
if text1.text""then
text1.text=""
end if
end sub
这样更快更明了。
如果你想让整个电脑键盘失效，可以直接劫持屏幕，不用真的让键盘失效（主要是我还没看到键盘失效那章哈哈）。

追问

呵呵 不过我还是想要键盘不能用 不这样做的话就可以依靠快速键之类的把我的惩罚游戏给关掉了。代码不能直接写在Private Sub Form_Load()下面吗？这样的话 一点击就会失效

追答

http://zhidao.baidu.com/question/33548277.html（看看这个吧，高手写的）

Answer 2

你还用VB啊，这个事打入内核使用C++驱动才可以实现的。
好好学API和驱动编写吧