在线等待,请教锁住键盘中指定键的问题

Question

如果是系统热键建议搜索以前的帖子比发帖子有效的多

Answer 1

例子
'键盘屏蔽函数（输入数字）
Public Function Ctrl(KeyAscii As Integer)
If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8 And KeyAscii <> 13 And KeyAscii <> Asc(".") Then
    KeyAscii = 0
End If
End Function'键盘屏蔽函数（输入字母）
Public Function SetCtrl(KeyAscii As Integer)
If (KeyAscii < Asc("a") Or KeyAscii > Asc("z")) And (KeyAscii < Asc("A") Or KeyAscii > Asc("Z")) And KeyAscii <> 8 And KeyAscii <> 13 And KeyAscii <> Asc(" ") And KeyAscii <> Asc(".") Then
    KeyAscii = 0
End If
End Function