Visual Basic. Программирование на Visual Basic

..........................................................................................................................

[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ]
..........................................................................................................................



Как быстро выделить текст для события GotFocus.
При вводе данных часто бывает необходимо выделить текущее значение элемента управления, когда в него передается фокус.
Это позволяет пользователю немедленно начать ввод данных поверх предыдущего значения.
Ниже приводится небольшая подпрограмма, которая предназначена именно для такой цели:


Public Sub FocusMe(ctlName as Control) With ctlName .selStart = 0 .selLength = Len (ctlName) End With End Sub

'А теперь добавьте вызов к этой подпрограмме в событии GotFocus для тех элементов управления, которые используются при вводе данных:

Private Sub Call FocusMe(Text1) End Sub

ИЛИ...

Text1.SetFocus With Text1 .SelStart = 0 .SelLength = Len(Text1.Text) End With

ИЛИ...

Private Sub Text1_GotFocus() With Text1 .SelStart = 0 'начало выделения .SelLength = Len(Text1.Text)

'конец выделения

End With End Sub

ИЛИ...

Private Sub Text1_GotFocus() SendKeys "{home}+{end}" End Sub

..........................................................................................................................

[ Главная ] [ Диски ] [ Книги ] [ Архив рассылки ] [ Архив новостей ] [ Готовые кусочки программ ] [ Карта сайта ]
..........................................................................................................................

По страницам сайта Visaul Progs
или Изучение Visual Basic
Рассылка 'По страницам сайта Visaul Progs' >>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!! >>>Если у вас есть статья которой нет на сайте
пришлите ее мне-------->
Послать статью
>>>Если вы хотите задать вопрос
пишите-------->
Мне нужна помощь


Рейтинг сайтов YandeG Rambler's Top100
Реклама:

...:::Design by Mystf0rse 2005-2010 year:::...