文本框控件、AutoSize、Text 属性示例

下例中，用一个单行文本框和一个多行文本框演示 AutoSize 属性的效果。用户可以将文本输入任意文本框，并将 AutoSize 打开或关闭而不考虑文本框的内容。这个代码示例还使用了 Text 属性。

窗体包含：

• 名为 TextBox1 和 TextBox2 的两个文本框控件。
• 名为 ToggleButton1 的切换按钮。

Sub UserForm30_Initialize()
    UserForm30_TextBox1.Text = "Single-line TextBox.在此输入文本。"
    
    UserForm30_TextBox2.MultiLine = True
    UserForm30_TextBox2.Text = "Multi-line TextBox. Type 在此输入文本。用 Ctrl+Enter 组合键开始新行。"
    
    UserForm30_ToggleButton1.Value = True
    UserForm30_ToggleButton1.Caption = "AutoSize On"
    UserForm30_TextBox1.AutoSize = True
    UserForm30_TextBox2.AutoSize = True
End Sub

Sub UserForm30_ToggleButton1_Click()
    If UserForm30_ToggleButton1.Value = True Then
        UserForm30_ToggleButton1.Caption = "AutoSize On"
        UserForm30_TextBox1.AutoSize = True
        UserForm30_TextBox2.AutoSize = True
    Else
        UserForm30_ToggleButton1.Caption = "AutoSize Off"
        UserForm30_TextBox1.AutoSize = False
        UserForm30_TextBox2.AutoSize = False
    End If
End Sub