在visual basic中如何使用户的光标不可见而键盘输入未“启用”?
答案 0 :(得分:2)
尝试以下代码。将这些API声明添加到您的declations部分:
Private Declare Function BlockInput Lib "user32" Alias "BlockInput" (ByVal fBlock As Integer) As Integer
Private Declare Function ShowCursor Lib "user32" (ByVal lShow As Long) As Long
在您的方法中,添加以下代码:
BlockInput 1
ShowCursor 0
要重新启用键盘和鼠标,请尝试以下操作:
BlockInput 0
ShowCursor 1