Свойство TextBox.SelStart (Access)

Свойство SelStart определяет начальную точку выделенного текста или положение точки вставки, если текст не выделен. Для чтения и записи, Integer.

Синтаксис

выражение. SelStart

выражение Переменная, представляющая объект TextBox .

Примечания

Свойство SelStart использует целое число в диапазоне от 0 до общего числа символов в текстовом поле поля со списком.

Чтобы задать это свойство для элемента управления или вернуть его, фокус должен находиться на элементе управления. Чтобы переместить фокус на элемент управления, используйте метод SetFocus .

Изменение свойства SelStart отменяет выделение, помещает точку вставки в текст и задает свойству SelLength значение 0.

Пример

В следующем примере для поиска текста, указанного пользователем, используются две процедуры обработки событий. Текст для поиска задается в процедуре события загрузки формы. Процедура события Click для кнопки Найти (которую пользователь нажимает, чтобы начать поиск) предлагает пользователю ввести текст для поиска и выделяет текст в текстовом поле в случае успеха поиска.

Private Sub Form_Load() 
 
 Dim ctlTextToSearch As Control 
 Set ctlTextToSearch = Forms!Form1!Textbox1 
 
 ' SetFocus to text box. 
 ctlTextToSearch.SetFocus 
 ctlTextToSearch.Text = "This company places large orders twice " & _ 
 "a year for garlic, oregano, chilies and cumin." 
 Set ctlTextToSearch = Nothing 
 
End Sub 
 
Public Sub Find_Click() 
 
 Dim strSearch As String 
 Dim intWhere As Integer 
 Dim ctlTextToSearch As Control 
 
 ' Get search string from user. 
 With Me!Textbox1 
 strSearch = InputBox("Enter text to find:") 
 
 ' Find string in text. 
 intWhere = InStr(.Value, strSearch) 
 If intWhere Then 
 ' If found. 
 .SetFocus 
 .SelStart = intWhere - 1 
 .SelLength = Len(strSearch) 
 Else 
 ' Notify user. 
 MsgBox "String not found." 
 End If 
 End With 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.