Exemplo do controle TextBox, do método SetFocus, das propriedades EnterFieldBehavior, HideSelection, MultiLine, Value

O exemplo a seguir demonstra a propriedade HideSelection no contexto de um único formulário ou mais de um formulário.

O usuário pode selecionar texto em uma Caixa de Texto e guia para outros controles em um formulário, bem como transferir o foco para um segundo formulário. Este exemplo de código também usa o método SetFocus e as propriedades EnterFieldBehavior, MultiLine e Value .

Para usar este exemplo, siga estas etapas:

1. Copie este código de exemplo (exceto para a sub-rotina do último evento) para a parte Declarações de um formulário.

2. Adicione uma Caixa de Texto grande chamada TextBox1, um ToggleButton chamado ToggleButton1 e um CommandButton chamado CommandButton1.

3. Insira um segundo formulário neste projeto chamado UserForm2.

4. Cole a última sub-rotina de eventos dessa listagem na seção Declarações do UserForm2.

5. Neste formulário, adicione um CommandButton chamado CommandButton1.

6. Execute UserForm1.

' ***** Code for UserForm1 ***** 
Private Sub CommandButton1_Click() 
 TextBox1.SetFocus 
 UserForm2.Show 'Bring up the second form. 
End Sub

Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 TextBox1.HideSelection = False 
 ToggleButton1.Caption = "Selection Visible" 
 Else 
 TextBox1.HideSelection = True 
 ToggleButton1.Caption = "Selection Hidden" 
 End If 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 TextBox1.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection 
 
'Fill the TextBox 
 TextBox1.Text = "SelText indicates the starting " _ 
 & "point of selected text, or the insertion " _ 
 & point if no text is selected." & Chr$(10) _ 
 & Chr$(13) & "The SelStart property is " _ 
 & "always valid, even when the control does " _ 
 & "not have focus. Setting SelStart to a " _ 
 & "value less than zero creates an error. " _ 
 & Chr$(10) & Chr$(13) & "Changing the value " _ 
 & "of SelStart cancels any existing " _ 
 & "selection in the control, places " _ 
 & "an insertion point in the text, and sets " _ 
 & "the SelLength property to zero." 
 
 TextBox1.HideSelection = True 
 ToggleButton1.Caption = "Selection Hidden" 
 ToggleButton1.Value = False 

End Sub

'
' ***** Code for UserForm2 *****

Private Sub CommandButton1_Click() 
 UserForm2.Hide 
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.