Question

VB 屏蔽按键

我要用if函数写的、怎么实现当某个条件为真的时候屏蔽某个键（比如A键），我是写在keydown里面的。

Answer 1

在keydown 就用这个
If Chr(KeyCode) = "A" Then Exit Sub
注意一定要大写字母，因为KeyCode不区分大小写，chr返回的是大写的。

如果在keypress 里面 可以用下面这个
If （Chr(KeyAscii) = "a"） or（Chr(KeyAscii) = "A" ） Then KeyAscii=0
这个是区分大小写的。
另外注意下 KeyCode和Keypress 是不一样的，小写的时候同一个字符他们的值是不一样的，大写字母一样。

追问

我是要禁止方向键的话要怎么写

追答

方向键的keycode 是 左：37 上：38 右：39 下：40
If KeyCode > 36 And KeyCode < 41 Then KeyCode = 0

追问

不行啊= =我是写在Form_KeyDown里面的。
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyA
P1.Left = P1.Left + 200
End Select

If P1.Left + P1.Width >= P2.Left Then '这一段
If Chr(KeyCode) = "A" Then Exit Sub
End If
End Sub
按照你给的代码写了没有用啊= =

追答

你的代码是 先检测按键 然后移动，然后才判断位置。这样每次条件满足都会执行上面的移动代码啊。 换过来先判断位置再检测按键。
If P1.Left + P1.Width >= P2.Left Then '这一段
If Chr(KeyCode) = "A" Then Exit Sub
End If
Select Case KeyCode

Case vbKeyA
P1.Left = P1.Left + 200
End Select

Answer 2

可以检验你按下键的asc码是否在你的范围，如果在范围就录入不在范围就不录入，这样也就相对于对键盘的某些键进行了屏蔽

追问

问题是代码怎么写...

追答

我现在用的是WIN7 与 VB 6.0 不兼容，有空我看看原来编写的源文件，将其中的代码给你粘贴过来。不好意。这个方法应该可以，我用过，在对话框中仅能输入固定的几个字母或数字。

追问

你不会是想说用弹出对话框什么的吧= =

追答

不是，但是需要输入错误弹出对话框也很容易

追问

这个就不需要了= =
只要屏蔽。。帮帮我吧~

追答

VB6.0这台电脑我没有装，我看不到源代码呀

Answer 3

使用KeyPress事件
例：
Private Sub Text1_KeyPress(KeyAscii As Integer)
if 条件 then
if KeyAscii = asc("a") or KeyAscii = asc("A") then
KeyAscii=0
else
KeyAscii=KeyAscii
end if
else

end if
End Sub