Partager via

Autoriser plusieurs lignes, l’habillage de mots et le défilement dans une zone de texte

  • Article

L’exemple suivant illustre les propriétés MultiLine, WordWrap et ScrollBars sur un Objet TextBox.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. Vérifiez que le formulaire contient :

  • un contrôle TextBox nommé TextBox1 ;

  • Quatre contrôles ToggleButton nommés ToggleButton1 à ToggleButton4.

Pour voir tout le texte placé dans le contrôle TextBox, affectez la valeur True aux propriétés MultiLine et WordWrap en cliquant sur les contrôles ToggleButton. Lorsque la propriété MultiLine a la valeur True, vous pouvez entrer de nouvelles lignes de texte en appuyant sur Maj+Entrée. Des barres de défilement apparaissent lorsque vous modifiez manuellement le contenu de la zone de texte.

Dim ToggleButton1 
Dim ToggleButton2 
Dim ToggleButton3 
Dim ToggleButton4 
Dim TextBox1 
 
Sub Item_Open 
'Initialize TextBox properties and toggle buttons 
 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").ToggleButton1 
 Set ToggleButton2 = Item.GetInspector.ModifiedFormPages("P.2").ToggleButton2 
 Set ToggleButton3 = Item.GetInspector.ModifiedFormPages("P.2").ToggleButton3 
 Set ToggleButton4 = Item.GetInspector.ModifiedFormPages("P.2").ToggleButton4 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").TextBox1 
 
 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 
 
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 
 
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 
 
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 
 
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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.