一个关于“TextBox 控件”的小问题 在线等待

Question

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    MsgBox "press vbcr"
'
'自动执行的操作
'
End If
End Sub

Answer 1

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbkeyRetrun Then
    msgbox "OK"
End If
End Sub

Answer 2

沒有吧如果窗体上有一個命令按鈕,而且Default屬性設為True的話,回車就可以相触發該按鈕的Click事件

Answer 3

还是应该在这里判断：
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    MsgBox "press vbcr"
'
'自动执行的操作
'
End If
End Sub

Answer 4

设置TextBox内容为单行，再在窗体上设置一个可以直接响应回车的按钮应该可以的。

Answer 5

我用 sindyzhou(比較菜) 介绍的方法实现了，我想其他的方法应该也是可以的，现在给分；

Answer 6

免代码的属性设置方法：
1 将Form的KeyPreview属性设置为True（缺省是False）
2 将某一按钮的Default属性设置为True（缺省是False）
3 在此按钮的Command_Click事件中写你要执行的代码