AutoSize, MultiLine, WordWrap, ScrollBars, propriétés, TextBox, contrôle, exemple
L'exemple suivant illustre l'utilisation des propriétés MultiLine, WordWrap et ScrollBars dans un contrôle TextBox.
Pour utiliser cet exemple, copiez le code suivant dans la partie Déclarations d'une feuille et vérifiez que celle-ci contient :
un contrôle TextBox nommé TextBox1,
quatre contrôles ToggleButton nommés ToggleButton1 à ToggleButton4.
Pour visualiser tout le texte placé dans le contrôle TextBox, attribuez la valeur True aux propriétés MultiLine et WordWrap en cliquant sur les contrôles ToggleButton.
Lorsque MultiLine a la valeur True, vous pouvez entrer de nouvelles lignes de texte à l'aide des touches MAJ+ENTRÉE.
La propriété ScrollBars apparaît lorsque vous modifiez manuellement le contenu du contrôle TextBox.
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