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

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

当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不带功能键检测)。

我托空气为邮差，把我的热腾腾的问候装订成包裹，印上真心为邮戳，37度恒温快递，收件人是你。祝你：春节愉快！ 加分吧，嘻嘻

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

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

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