Propriedade ComboBox.SelLength (Access)
A propriedade SelLength especifica ou determina o número de caracteres selecionados na parte caixa de texto de uma caixa de combinação. número inteiro de leitura/gravação.
Sintaxe
expressão. SelLength
Expressão Uma variável que representa um objeto ComboBox .
Comentários
A propriedade SelLength utiliza um Integer no intervalo de 0 até o número total de caracteres na parte caixa de texto de uma caixa de combinação.
Para definir ou retornar essa propriedade para um controle, o controle deve ter o foco. Para mover o foco para um controle, use o método SetFocus.
Configuração da propriedade SelLength como um número menor que 0 produz um erro em tempo de execução.
Exemplo
O exemplo a seguir utiliza dois procedimentos de evento para localizar um texto especificado pelo usuário. O texto a ser pesquisado é definido no procedimento de evento Load do formulário. O procedimento de evento Clique no botão Localizar (que o usuário clica para iniciar a pesquisa) solicita ao usuário que o texto pesquise e selecione o texto na caixa de texto se a pesquisa for bem-sucedida.
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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.