共用方式為

TextBox 控制項、AutoSize、Text 屬性範例

  • 發行項

下列範例示範 AutoSize 屬性與單行 TextBox 和多行 TextBox的效果。

使用者可以在TextBox中輸入文字，並獨立于TextBox的內容開啟或關閉AutoSize。 此程式碼範例也會使用 Text 屬性。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定表單包含：

  • 兩個分別名為 TextBox1 和 TextBox2 的 TextBox 控制項。
  • 一個名為 ToggleButton1 的 ToggleButton 。
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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。