如何在VB中做到在文本框里按Enter键和触发按钮的Click事件一样的效果

Question

文本框Name属性为Textbox1
按钮的Click事件处理过程为调用函数sec()，不传递任何参数
如何在VB中做到在文本框里按Enter键和触发按钮的Click事件一样的效果（调用我指定的函数sec()）
TextBox1在GroupBox容器GroupBox1里

Answer 1

1、首先，我们双击窗体空白处进入代码窗口。

2、然后我们在事件中找到Click事件。

3、这个时候我们便可以开始编写代码测试【Print "我是Click单击属性！"】。

4、然我们开始运行测试。

5、启动后，我们在窗体空白处单击。

6、这个时候我们将可以看到测试的效果。

注意事项：

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。

Answer 2

当textbox1里发生keyascii=13 (即enter键)的keypress的时候，调用 CmdButton1_Click过程即可。
private sub TextBox1_KeyPress(keyascii as integer)
if keyascii=13 then
keyascii=0
CmdButton1_click
end if
end sub
但这样有一个弊端，textbox1无法输入回车。建议使用功能键(ctrl、alt、Shift)+Enter，这样的话，可以在keydown或者keyup里写这些代码(keypress不带功能键检测)。

Answer 3

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '13为回车键的ascii码
Call Command1_Click '调用按钮按下过程
KeyAscii = 0 '清除对文本框的输入更新
Else
End If
End Sub

Answer 4

Private Sub Textbox1_Click(...)
sec()
End Sub
Private Sub Textbox1_KeyPress(KeyAscii)
If KeyAscii=13 Then
KeyAscii=0
sec()
End If
End Sub

Answer 5

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "OK!"
End If
End Sub