Exemplo do evento KeyDown, do controle TextBox, das propriedades CurLine, CurTargetX, CurX, Text

  • Artigo

O exemplo a seguir rastreia as configurações de propriedade CurLine, CurTargetX e CurX em um TextBox multiline. Essas configurações mudam no evento KeyUp à medida que o usuário digita na propriedade Text , move o ponto de inserção e estende a seleção usando o teclado.

Para usar este exemplo, siga estas etapas:

  1. Copie este código de exemplo para a parte Declarações de um formulário.

  2. Adicione uma Caixa de Texto grande chamada TextBox1 ao formulário.

  3. Adicione três controles TextBox chamados TextBox2, TextBox3 e TextBox4 em uma coluna.

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
 TextBox2.Text = TextBox1.CurLine 
 TextBox3.Text = TextBox1.CurX 
 TextBox4.Text = TextBox1.CurTargetX 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 
 TextBox1.Text = "Type your text here. User 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.