VB中,如何禁止使用键盘上所有按键?
我是新手,不懂的。程序只有一个窗体,想用代码实现屏蔽所有按键,只能用鼠标。请高手尽量把代码弄简单明了一点。感激不尽!...
我是新手,不懂的。程序只有一个窗体,想用代码实现屏蔽所有按键,只能用鼠标。请高手尽量把代码弄简单明了一点。感激不尽!
展开
3个回答
展开全部
这是一个使用SetWindowsHookEx的程序,屏蔽了键盘按键(包括系统按键)。 如果只想屏蔽某个按键,请更改下面的代码。 Form1.Text1 = wParam Form1.Label1 = kk.vkCode & ":" & kk.scanCode & ":" & kk.Time 'If wParam = 256 Then Myfunc = 1: Exit Function 'endif wParam 的按键值可以在程序运行中测试中找到。
展开全部
Private Sub Form_KeyPress(KeyAscii As Integer)'窗体的键盘事件
For KeyAscii = 1 To 127 '循环变量KeyAscii的值
MsgBox "不能用键盘输入" 弹出提示对话框
Exit For '结束循环
Next KeyAscii
End Sub
For KeyAscii = 1 To 127 '循环变量KeyAscii的值
MsgBox "不能用键盘输入" 弹出提示对话框
Exit For '结束循环
Next KeyAscii
End Sub
追问
可是禁止不了WIN键和组合键啊
追答
win 是系统按键 我是没办法
组合键 你可以试试键盘按下弹起事件 来判断
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询