设置按钮的 Default 属性（推荐）
这是最简便且符合VB逻辑的方式：
- 打开窗体设计器：双击窗体进入设计界面。
- 选中目标按钮：单击需要绑定回车键的命令按钮（如
Command1）。 - 修改属性窗口：
- 找到
Default属性（默认为False）。 - 将其值改为
True。
- 找到
- 生效条件：
- 当焦点位于窗体上不支持回车键的控件（如文本框、复选框）时，按回车键会触发该按钮的
Click事件。 - 若焦点在另一个按钮上,则优先响应焦点按钮。
- 当焦点位于窗体上不支持回车键的控件（如文本框、复选框）时，按回车键会触发该按钮的
注意事项：
- 同一窗体只能有一个按钮的
Default属性为True。 - 若需处理多行文本框（
MultiLine=True）的回车换行，需额外代码拦截（见下文）。
通过窗体键盘事件全局捕获回车键
适用于复杂场景（如多个按钮需响应回车）：
- 启用窗体键盘监听：
- 在窗体属性窗口中将
KeyPreview属性设为True（允许窗体优先接收键盘事件）。
- 在窗体属性窗口中将
- 添加键盘事件代码：
- 双击窗体进入代码页，输入以下代码：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ' 检测回车键 Command1_Click ' 调用目标按钮的Click事件 KeyCode = 0 ' 可选：阻止回车键的默认行为 End If End Sub - 将
Command1_Click替换为你的按钮事件名。
- 双击窗体进入代码页，输入以下代码：
注意事项：
- 此方法会覆盖窗体中所有控件的回车行为,需确保逻辑无冲突。
- 若需在特定控件（如多行文本框）禁用回车触发按钮，可增加条件判断：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn And Not TypeOf ActiveControl Is TextBox Then Command1_Click End If End Sub
常见问题解决
- 多行文本框冲突：
当文本框需用回车换行时，在文本框的KeyPress事件中屏蔽按钮触发：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then KeyAscii = 0 ' 阻止回车传递到窗体 ' 此处添加换行代码（如插入换行符） End If End Sub - 多个按钮需响应回车：
在Form_KeyDown事件中根据焦点控件判断：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If TypeOf ActiveControl Is TextBox Then Command2_Click ' 文本框存在时触发按钮2 Else Command1_Click ' 其他情况触发按钮1 End If End If End Sub
方法选择建议
- 简单场景 → 用
Default属性（高效且无需代码）。 - 复杂交互 → 用
KeyPreview+ 事件处理（灵活控制逻辑）。
引用说明：本文方法基于VB6官方文档及开发实践，参考Microsoft MSDN关于CommandButton.Default属性和Form.KeyPreview属性的说明。
原创文章，发布者：酷番叔，转转请注明出处：https://cloud.kd.cn/ask/4893.html
