Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) With TextBox1 If Len(Trim(TextBox1.Text)) > 0 Then If KeyCode = vb KeyReturn Then...

在 VB 编程中， 回车键 可以用 `Microsoft.VisualBasic.ChrW(Keys.Enter)` 来表示。这个语句表示将 `Keys.Enter` 转换成字符形式，也就是 回车键 的ASCII码值。在编写事件处理程序时，可以 监听 用户是否按下了 回车键 ，例如： Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter) Then ' 在这里编写用户按下 回车键 后要执行的代码 End If End Sub 在上述代码中，我们使用了事件 `TextBox1_KeyPress` 来 监听 用户是否按下 回车键 。当用户按下 回车键 时，执行事件处理程序中的代码。