14 Ноябрь 2008

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

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

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

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then Text1.SetFocus
End Sub

Запись опубликована on 14.11.2008 at 15:21 и размещена в рубрике: Клавиатура. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



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

Я не робот.