Cвойства TextBox'a

 SelLegth SelStart SelText

Часто возникают ситуации, когда при использовании TextBox необходимо, что бы при перемещении на него фокуса, текст находящийся в нем маркировался. Или же при при перемещении на него фокуса, (или добавлении в него другого текста) курсор сразу должен перемещаться в конец имеющегося в TextBox - е текста. Или же иметь возможность для дальнейщих Ваших операций с маркированным текстом. Все это, позволяют сделать некоторые свойства TextBox-а – SelLegth, SelStart и SelText.

Рассмотрим оба случая.

Первый случай - при перемещении фокуса на TextBox, текст находящийся в нем маркировался. Для этого необходимо в процедуру Text1_GotFocus вставить следующий код:

Private Sub Text1_GotFocus()

'Определяем начальное положение текста

Text1.SelStart = 0

'Маркируем всю длину текста, вычисляя его спомощью оператора Len

Text1.SelLength = Len(Text1.Text)

End Sub

Второй случай- при перемещении фокуса на TextBox, (или добавлении в него другого текста) курсор должен перемещаться в конец имеющегося в TextBox - е текста. Для этого необходимо в процедуру Text1_GotFocus вставить следующий код:

Private Sub Text1_GotFocus()

'Определяем длинну имеющегося текста и присваиваем это позиции начала следующего текста

Text1.SelStart = CLng(Len(Text1.Text))

End Sub

Третий случай - возможность обработки маркированного текста. Для этого можно использовать одну строку кода.

Dim strMarkText As String

'Присваиваем переменной strMarkText текст маркированный в TextBox

strMarkText = Text1.SelText