Exemplo das propriedades Enabled, EnterFieldBehavior, SelLength, SelStart, SelText

O exemplo a seguir rastreia as propriedades relacionadas à seleção (SelLength, SelStart e SelText) que são alteradas à medida que o usuário move o ponto de inserção e estende a seleção usando o teclado.

Este exemplo também usa as propriedades Enableed e EnterFieldBehavior .

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:

• Uma Caixa de Texto grande chamada TextBox1.
• Três controles TextBox em uma coluna chamada TextBox2 por meio do TextBox4.

Private Sub TextBox1_KeyUp(ByVal KeyCode As _ 
 MSForms.ReturnInteger, ByVal Shift As Integer) 
 TextBox2.Text = TextBox1.SelStart 
 TextBox3.Text = TextBox1.SelLength 
 TextBox4.Text = TextBox1.SelText 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 TextBox1.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorRecallSelection 
 
 TextBox1.Text = "Type your text here. Use " _ 
 & "CTRL+ENTER to start a new line." 
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.