Программирование
Веб программирование

Событие GotFocus и LostFocus в Visual Basic

 
 

Событие GotFocus происходит тогда, когда объекту передается фокус(т.е. если текстовое поле, то когда на нем курсор появляется, если кнопка, то тогда, когда она выделяется), а LostFocus когда фокус теряется.
Сделаем программу. На форму кинь 2 текстовых поля и кнопку. Вот код:

Dim x As Long
Private Sub Command1_GotFocus() ' Если кнопке фокус передается то меняем надпись на кнопке
Command1.Caption = "Событие GotFocus"
End Sub

Private Sub Text1_GotFocus() ' Если текстовому полю передается фокус, то:
Text1.SelStart = 0 ' Ставим курсор в самое начало
Text1.SelLength = Len(Text1.Text) ' Выделяем текст
End Sub

Private Sub Text2_LostFocus() ' Если текстовое поле теряет фокус, то:
x = Text2.SelStart ' Сохраняем в переменную x позицию курсора
End Sub 

Private Sub Text2_GotFocus() ' Если текстовому полю передается фокус, то:
On Error Resume Next' Если ошибка происходит, то игнорируем следующею строчку
Text2.SelStart = x ' Ставим курсор в ту позицию, в которой он был перед потерей фокуса
End Sub

Исходник качай здесь


Есть вопросы? Спроси на нашем форуме!!
террорист с прищепкой [01.04.2012 11:31]

а как написать шо бы при загрузке формы фокус предавался ей?



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.