用keypress事件 例子 private sub textbox_keypress(keyascii as integer) if keyascii = 13 then 执行你的事件 end sub
Private Sub Command1_Click() MsgBox Text1 End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbEnter Then Command1_Click End If End Sub
例子
private sub textbox_keypress(keyascii as integer)
if keyascii = 13 then 执行你的事件
end sub
MsgBox Text1
End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbEnter Then
Command1_Click
End If
End Sub