VB按钮启用键盘回车功能

用文本框的KeyPress事件实现：

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 桥蠢顷Then

  敏陆      Command1_Click

    End If

End Sub

Private Sub Command1_Click()

    Print 档空Text1.Text

End Sub

方法一：“族卖确定”按钮的Default属性设困枣置为True，窗口运行的时候，按下Enter键相当于单击确定兆尺逗。

方法二：

找到控件的KeyPress事件：如文本控件Text1

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

你要click的代码

End If

End Sub

这个事件要加在你确定按钮的前一个控件上面。

---