如何实现－－－当回车时便执行焦点选中的按钮

Question

如当前焦点为COMMAND1
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  if keycode=13 then
     command1_click
  endif
End Sub

Answer 1

如果command1有焦点的话，不用任何代码，回车本来就执行command1_click()

Answer 2

form的keypreview=ture,这样当焦点再form内的控件上时才会触发form的keydown,keyup,keypress事件，否则luocc(罗)的方法不能成功chenke_ikari(软件以用户为本!!!)的方法可以保证form_load时焦点在某一按钮上，这样当回车时便会触发click事件，但用户移动了焦点以后就没用了。

Answer 3

啊！理解错误，xsp()是对的，我以为执行未选中焦点的按钮

Answer 4

只要不在窗体的任何控件上设置default属性就行了。

Answer 5

Private Sub text_KeyPress(...)
  if keycode=13 then
    SendKey="{tab}"
  endif
End Sub 

Answer 6

设置    command1   tabindex属性为0