Exemplo do controle TextBox, das propriedades AutoSize, Text

O exemplo seguinte demonstra os efeitos da propriedade Dimensionar Automaticamente com uma Caixa de Texto de linha única e uma Caixa de Texto com várias linhas.

O utilizador pode introduzir texto na Caixa de Texto e ativar ou desativar o Dimensionamento Automático independentemente do conteúdo da Caixa de Texto. Este exemplo de código também utiliza 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 Botão de Alternar com o nome 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.