TextBox コントロール、AutoSize プロパティ、Text プロパティの例

  • [アーティクル]

The following example demonstrates the effects of the AutoSize property with a single-line TextBox and a multiline TextBox.

ユーザーは、どちらかの TextBox にテキストを入力し、TextBox の内容とは関係なく AutoSize をオンまたはオフにできます。 このコード サンプルでは 、Text プロパティも使用します。

この例を使用するには、以下のサンプル コードをフォームの宣言部分にコピーします。 フォームに次が含まれていることを確認してください。

  • 2 つのテキスト ボックス ( TextBox ) コントロール (TextBox1 と TextBox2)
  • トグル ボタン ( ToggleButton ) コントロール (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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。