2 Февраль 2009

Как передать фокус по нажатию Enter?

Клавиатура |  Таги: , ,

Как передать фокус по нажатию Enter?

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
       SendKeys "{tab}"
       KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
       SendKeys "{tab}"
       KeyAscii = 0
End If
End Sub


У нас куча комментариев (2) на запись “Как передать фокус по нажатию Enter?”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 03.02.2009, romaxsoft said:

    Я бы сделал попроще:

    Private Sub Text1_KeyDown(KeyCode as Integer)
    If KeyCode=13 Then Text2.SetFocus
    End Sub

  2. 2 On 21.10.2009, Сергей said:

    romaxsoft <

    Я бы сделал попроще:

    Private Sub Text1_KeyDown(KeyCode as Integer)
    If KeyCode=13 Then Text2.SetFocus
    End Sub

    Ну а если кол-во text-ов неизвестно??? (создаются динамически)

Оставить комментарий

Я не робот.