Question

VB高手请进！求键盘控制的代码！谢谢…到时定有重谢…我对VB只懂一点点！尽量让我复制代码！谢咯…

VB的form窗体上有个命令按钮command1
能不能使Atl+F4按下就触发command1的单击事件！如过能代码咋写！谢谢咯…
如果不能！那当VB运行时！有办法使Atl键或整个键盘失灵吗！急啊！谢谢…

Answer 1

很简单啊,用这个函数:GetAsyncKeyState
代码过程如下:
先在模块中作差皮毁以下声明
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

然后在窗体上添加一个timer控件和一个command 控件.
Private Sub Command1_Click()
MsgBox "大家好哇!"
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF4) <> 0 Then
Call Command1_Click
End If
End Sub
这样按下了F4键就会触发按钮事件.

还有这样也行，虚备直接在窗体代码里写：
Private Sub Command1_Click()
MsgBox "握搭工期"
End Sub
Private Sub Form_Load()
Command1.Caption = "command1(&a)"
End Sub
你按下alt+a就会触发按钮事件了

Answer 2

VB高手请进！求键盘控制的代码！察坦谢谢…到时定有重谢…我裂没弯对VB只懂一点点！尽量让我复制代码！谢咯…
悬赏分：20 - 离问题结束还有 14 天 23 小时
VB的form窗体上有个命令按钮command1
能不能使Atl+F4按下就触发command1的单击事件！如过能代码咋写！谢谢咯…
如果不能！那当VB运行时！有办法使肆闷Atl键或整个键盘失灵吗！急啊！谢谢…

Answer 3

按CAPS LOCK