Question

在vfp表单中，怎么利用键盘中的上下左右键来控制一个控件的移动，求解

Answer 1

* 写代码在表单的keypress 事件里面
form.keypress
LPARAMETERS nKeyCode, nShiftAltCtrl

do case
case nKeyCode=5  //按 上箭头键
    if thisform.box.top>0 
       thisform.box.top=thisform.box.top-1 // 控件的top-1
      endif
   case nKeyCode=24  //按 下箭头键
    if thisform.box.top+thisform.box.height>thisform.height 
       thisform.box.top=thisform.box.top+1 // 控件的top+1
      endif   
   case nKeyCode=19  //按 ←箭头键
    if thisform.box.left>0
       thisform.box.left=thisform.left-1 // 控件的left-1
      endif
    case nKeyCode=4  //按 右键箭头键
    if thisform.box.left+thisform.box.width>thisform.width 
       thisform.box.left=thisform.box.left+1 // 控件的left+1
      endif
   endcase

Answer 2

对onkeyup事件进行编程,首先将form的keypreview设置为true private void Form1_KeyUp(object sender, KeyEventArgs e) { switch (e.KeyCode) { case Keys.Up: button1.Top--; break; case Keys.Down: button1.Top++; break; case Keys.Left: button1.Left--; break; case Keys.Right: button1.Left++; break; } }