AutoSize プロパティ、MultiLine プロパティ、WordWrap プロパティ、ScrollBars プロパティ、TextBox コントロールの例

次の例では、TextBox の MultiLine、WordWrap、ScrollBars の各プロパティを示します。

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

• テキスト ボックス ( TextBox ) コントロール (TextBox1)
• 4 つのトグル ボタン ( ToggleButton ) コントロール (ToggleButton1、ToggleButton2、ToggleButton3、および ToggleButton4)

TextBox に設定されたテキスト全体を表示するには、ToggleButton コントロールをクリックして MultiLine および WordWrap を True に設定します。

MultiLine が True の場合は、Shift キーを押しながら Enter キーを押して、新しいテキスト行を入力できます。 TextBox の内容を手動で変更すると、ScrollBars が表示されます。

Private Sub UserForm_Initialize() 
'Initialize TextBox properties and toggle buttons 
 
 TextBox1.Text = "Type your text here. " 
 & "Enter SHIFT+ENTER to move to a new line." 
 
 TextBox1.AutoSize = False 
 ToggleButton1.Caption = "AutoSize Off" 
 ToggleButton1.Value = False 
 ToggleButton1.AutoSize = True 
 
 TextBox1.WordWrap = False 
 ToggleButton2.Caption = "WordWrap Off" 
 ToggleButton2.Value = False 
 ToggleButton2.AutoSize = True 
 
 TextBox1.ScrollBars = 0 
 ToggleButton3.Caption = "ScrollBars Off" 
 ToggleButton3.Value = False 
 ToggleButton3.AutoSize = True 
 
 TextBox1.MultiLine = False 
 ToggleButton4.Caption = "Single Line" 
 ToggleButton4.Value = False 
 ToggleButton4.AutoSize = True 
 End Sub 
 
Private Sub ToggleButton1_Click() 
'Set AutoSize property and associated ToggleButton 
 
 If ToggleButton1.Value = True Then 
 TextBox1.AutoSize = True 
 ToggleButton1.Caption = "AutoSize On" 
 Else 
 TextBox1.AutoSize = False 
 ToggleButton1.Caption = "AutoSize Off" 
 End If 
End Sub

Private Sub ToggleButton2_Click() 
'Set WordWrap property and associated ToggleButton 
 
 If ToggleButton2.Value = True Then 
 TextBox1.WordWrap = True 
 ToggleButton2.Caption = "WordWrap On" 
 Else 
 TextBox1.WordWrap = False 
 ToggleButton2.Caption = "WordWrap Off" 
 End If 
End Sub

Private Sub ToggleButton3_Click() 
'Set ScrollBars property and associated ToggleButton 
 
 If ToggleButton3.Value = True Then 
 TextBox1.ScrollBars = 3 
 ToggleButton3.Caption = "ScrollBars On" 
 Else 
 TextBox1.ScrollBars = 0 
 ToggleButton3.Caption = "ScrollBars Off" 
 End If 
End Sub

Private Sub ToggleButton4_Click() 
'Set MultiLine property and associated ToggleButton 
 
 If ToggleButton4.Value = True Then 
 TextBox1.MultiLine = True 
 ToggleButton4.Caption = "Multiple Lines" 
 Else 
 TextBox1.MultiLine = False 
 ToggleButton4.Caption = "Single Line" 
 End If 
End Sub

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

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