如何对当前窗体的按键事件做出反应？

窗体里如果没有控件很简单，如果有，那就只能通过其中的焦点控件或是用键盘Hook

解决方案 »

  1.   


     keypress
     keydown
      

  2.   

    form1.keypreview=true
    form_keypress事件
      

  3.   

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    if keycode=... then
       ....
    end ifEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    if button=... then
       ....
    end if
    End Sub
      

  4.   

    窗体有控件
    其实就是俄罗斯方块的左右移动问题
    如果当前按键是vbkeyleft就左移
    用了form_keypress不管用
      

  5.   

    假设你的图片是在在窗体上的一个PictureBox控件里显示的。窗体上还有其他CommandButton。编程如下：private sub form_load()
        form1.keypreview=true
    end subPrivate Sub Form_Activate()
        Picture1.SetFocus
    End Sub'//下面的代码演示按键消息处理。你根据需要再作改动
    private sub Picture1_KeyDown(Keycode as integer,shift as integer)
         me.caption=cstr(keycode)
    end sub按键能响应了吧
      

  6.   


      焦点在窗体，就是窗体的keypress
      焦点在picture,就是picture的keypress  总之，焦点在哪儿，就捕捉哪儿的keypress事件
      

  7.   

    form1.keypreview=true
    form_keypress事件
      

  8.   

    Frm.Keypreview=TRUE
    再把所有控件的keypress都写上你要做的事