在VB程序中,如果我设计了一条虫,我要它上移,或者下移,或者左移,右移,我如何我安下的是哪个方向键?

解决方案 »

  1.   

    in form property page you set keyprivew : true;
    in form's keyup write code
    if you  dont know the code value you can in event write msgbox keycode
      

  2.   

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
        Select Case KeyCode
            Case 37 '向左
            Case 38 '向上
            Case 39 '向右
            Case 40 '向下
        End Select
        
    End Sub
      

  3.   

    Private Sub Form_KeyPress(KeyAscii As Integer)
     debug.? chr(KeyAscii)
    End Sub
      

  4.   

    来晚了!也可以这样:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
        Select Case KeyCode
            Case vbKeyLeft'向左
            Case vbKeyUp '向上
            Case vbKeyRight'向右
            Case vbKeyDown '向下
        End Select
      

  5.   


    使用keydown keypress这样的事件扑捉键盘操作就可以了。楼上的已经说的很清楚了~