Как отследить конец ввода в TextBox?

[Alkoch]

Помогите пожалуйста новичку. ВВожу текст в TextBox, и после нажатия клавиши Enter ввод прекращается и надо перейти к выполнению некоторого кода.

[ta_gena]

Код: Выделить всё

'Для того, чтобы по нажатию кл Enter заканчивался ввод:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  If keyCode = vbKeyReturn And Shift = 0 Then VBA.SendKeys vbKeyTab
End Sub

'Для проверки лучше использовать
Private Sub Text1_Validate(Cancel As Boolean)
    'Если условие не вполняется
    Cancel = True
End Sub


[tyomitch]

1. Корректнее писать это в Text1_KeyPress
2. Text1_Validate выполнится, только если у следующего по TabOrder-у контрола установлено CausesValidation

[GM]

Только на форме не должно быть кнопок с свойством Default = true, а то события Key* при нажатии Enter, не будет.

[kazah_]

Код: Выделить всё

'Для того, чтобы по нажатию кл Enter заканчивался ввод:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  If keyCode = vbKeyReturn And Shift = 0 Then VBA.SendKeys vbKeyTab
End Sub

'Для проверки лучше использовать
Private Sub Text1_Validate(Cancel As Boolean)
    'Если условие не вполняется
    Cancel = True
End Sub


Можно проще ... намного...

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

И че людям мозгу трахать?