Compartir a través de

Propiedad TextBox.SelStart (Access)

  • Artículo

La propiedad SelStart especifica o determina el punto inicial del texto seleccionado o la posición del punto de inserción si no hay texto seleccionado. Integer de lectura y escritura.

Sintaxis

expresión. Selstart

Expresión Variable que representa un objeto TextBox .

Comentarios

La propiedad SelStart usa un número entero en el intervalo entre 0 y el número total de caracteres en la parte de cuadro de texto de un cuadro combinado.

Para establecer o devolver esta propiedad para un control, el control debe tener el foco. Para mover el enfoque a un control, use el método SetFocus.

Modificar la propiedad SelStart cancela la selección, coloca un punto de inserción en el texto y establece la propiedad SelLength en 0.

Ejemplo:

En el siguiente ejemplo, se utilizan dos procedimientos de evento para buscar el texto especificado por un usuario. El texto que se va a buscar se establece en el procedimiento de evento Load del formulario. El procedimiento de evento Click del botón Buscar (en el que el usuario hace clic para iniciar la búsqueda) solicita al usuario el texto que se va a buscar y selecciona el texto en el cuadro de texto si la búsqueda se realiza correctamente.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.