 |
..........................................................................................................................
| [ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ] |
|
|
| [ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ] |
|
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 |
|
|
|
|
>>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!! |
>>>Если у вас есть статья которой нет на сайте
пришлите ее мне--------> Послать статью >>>Если вы хотите задать вопрос пишите--------> Мне нужна помощь |
|
|
|
|
|
|