Автоматическое подсвечивание

[Artur KakTus]

И вот снова вопрос.:
Как сделать так, чтобы при получении текстбоксом фокуса, поле текст выделялось (например как выделение мышкой или с удержанной клавишей шифт).

Спасибо за помощь

[RayShade]

А что, если обрабатывать _GotFocus И ставить там .BackColor в нужное значение?

[alibek]

Почему BackColor?

Код: Выделить всё

Private Sub Text1_GotFocus()
  Text1.SelStart = 0
  Text1.SelLength = Len(Text1.Text)
End Sub

[Artur KakTus]

Спасибо вам, все работает,
правда в другой процедуре обработки событий - ченж.
(я проверяю на условие и если не соотв. то сетфокус на текстбокс. И подсвечую с текстбокс). В своих книгах не нашел таких функций, но смысл понял.

[RayShade]

А, блин! Я просто почему то прочитал вопрос не "как выделить текст" а "как выделить сам контрол"