Управление клавишами <- и ->

Приветствую всех Visual Basic-истов. Решился наконец написать пару строчек для одного из моих любимых сайтов. Недавно пришлось заглянуть в Help - файл моего земляка, Армена Мнацаканяна, а я туда частенько заглядываю, но ответа на свой вопрос не нашел. Мне нужно было, чтоб при помощи стрелок 'Вправо' и 'Влево' переходить от одного TextBox к другому. Сейчас решение есть и я его привожу.

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 

If KeyCode = 39 And Text1.SelStart = Len(Text1.Text) Then

 

 Text2.SetFocus 

End Sub

KeyCode=39 - фиксируется нажатие клавиши 'Вправо'
Text1.SelStart = Len(Text1.Text) –Определяем местонахождение курсора, в данном случае, что б курсор находился в конце Text1 Text2.SetFocus – передаем фокус Text2

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 

If KeyCode = 37 And Text2.SelStart = 0 Then

 Text1.SetFocus   

End Sub

KeyCode = 37 - фиксируется нажатие клавиши 'Влево'
Text2.SelStart = 0  – определяем местонахождение курсора, в данном случае, что б курсор находился в начале Text2.Tex1.SetFocus – передаем фокус Text1  

 

 

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ