Partilhar via

Exemplo do controle TextBox, das propriedades AutoSize, Text

  • Artigo

O exemplo a seguir demonstra os efeitos da propriedade AutoSize com uma TextBox de linha única e uma Caixa de Texto multiline.

O usuário pode inserir texto no TextBox e ativar ou desativar o AutoSize independentemente do conteúdo da TextBox. Este exemplo de código também usa a propriedade Text .

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:

  • Dois controles TextBox denominados TextBox1 e TextBox2.
  • Um ToggleButton chamado ToggleButton1.
Private Sub UserForm_Initialize() 
 TextBox1.Text = "Single-line TextBox. " _ 
 & "Type your text here." 
 
 TextBox2.MultiLine = True 
 TextBox2.Text = "Multi-line TextBox. Type " _ 
 & "your text here. Use CTRL+ENTER to start " _ 
 & "a new line." 
 
 ToggleButton1.Value = True 
 ToggleButton1.Caption = "AutoSize On" 
 TextBox1.AutoSize = True 
 TextBox2.AutoSize = True 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "AutoSize On" 
 TextBox1.AutoSize = True 
 TextBox2.AutoSize = True 
 Else 
 ToggleButton1.Caption = "AutoSize Off" 
 TextBox1.AutoSize = False 
 TextBox2.AutoSize = False 
 End If 
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.