Свойство ComboBox.SelStart (Access)
Свойство SelStart задает или определяет начальную точку выделенного текста или положение точки вставки, если текст не выделен. Для чтения и записи, Integer.
Синтаксис
expression. SelStart
Выражение Переменная, представляющая объект ComboBox .
Замечания
Свойство SelStart использует целое число в диапазоне 0 до общего числа символов в текстовом поле поля со списком.
Чтобы задать или вернуть это свойство для элемента управления, элемент управления должен иметь фокус. Чтобы переместить фокус в элемент управления, используйте метод SetFocus .
Изменение свойства SelStart отменяет выделение, помещает в текст точку вставки и задает для свойства SelLength значение 0.
Пример
В следующем примере используются две процедуры событий для поиска текста, указанного пользователем. Текст для поиска задается в процедуре события Load формы. Процедура события 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 и обратная связь.