Propiedad TextBox.SelLength (Access)
La propiedad SelLength especifica o determina el número de caracteres seleccionados en un cuadro de texto. Integer de lectura y escritura.
Sintaxis
expresión. Sellength
Expresión Variable que representa un objeto TextBox .
Comentarios
La propiedad SelLength utiliza un número entero en el intervalo entre 0 y el número total de caracteres en un cuadro de texto o 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.
Si se establece la propiedad SelLength en un número menor que 0 genera un error en tiempo de ejecución.
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.