救命啊！VB如何检测到文本框里输入了回车键?

Question

Private Sub Txtdwbh_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    MsgBox
End If
End Sub

Answer 1

1）窗体的keypreview=true，以后会有用
2）在窗体的keydown中删除回车事件，否则会发出“丁丁”响（因为单行文本框不允许会车）
3）使用textbox.keydown比textbox.keypress好

Answer 2

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim M As msg
    
    If KeyCode = vbKeyEscape Then
        Unload Me
    ElseIf KeyCode = vbKeyReturn Then
        PeekMessage M, Me.hWnd, 0, 0, PM_REMOVE
    End If
End Sub
用于实现上面我说的第二步，能够处理回车和esc事件

Answer 3

PeekMessage 函数up to ：jennyvenus

Answer 4

在窗体的keydown中删除回车事件，否则会发出“丁丁”响（因为单行文本框不允许会车）学习！

Answer 5

在 Private Sub text_keypress (KeyAscii As Integer)
   if keyascii=vbkeypress then .......
这样就可以了

Answer 6

再也没有比jennyvenus(JennyVenus）说的详细透彻的了！

Answer 7

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    '在此输入您的代码
End Sub

Answer 8

If KeyAscii = 13 Then
    ...
End If

Answer 9

可以，用text的change事件也行啊！