Поделиться через

Установка количества строк и длины входных данных в текстовом поле

  • Статья

В следующем примере производится подсчет символов и количества строк текста в TextBox с помощью свойств LineCount и TextLength , а также метода SetFocus . В этом примере пользователь может ввести текст в TextBox и извлечь текущие значения свойств LineCount и TextLength.

Примечание.

Метод SetFocus наследуется от элемента управления TextBox Microsoft Forms 2.0.

Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Чтобы запустить код, необходимо открыть форму, чтобы активировать событие Open . Убедитесь, что эта форма содержит следующие элементы управления:

  • Элемент TextBox с именем TextBox1.
  • Элемент CommandButton](.. /.. /.. /api/Outlook.commandbutton.md) с именем CommandButton1.
  • Две метки](.. /.. /.. Элементы управления /api/Outlook.label.md) с именами Label1 и Label2.
'Type SHIFT+ENTER to start a new line in the text box. 
 
Dim CommandButton1 
Dim TextBox1 
Dim Label1 
Dim Label2 
 
Sub CommandButton1_Click() 
 'Must first give TextBox1 the focus to get line count 
 TextBox1.SetFocus 
Sub Item_Open() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox1") 
 Set Label2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("Label2") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton1") 
 
 CommandButton1.WordWrap = True 
 CommandButton1.AutoSize = True 
 CommandButton1.Caption = "Get Counts" 
 
 Label1.Caption = "LineCount = " 
 Label2.Caption = "TextLength = " 
 
 TextBox1.MultiLine = True 
 TextBox1.WordWrap = True 
 TextBox1.Text = "Enter your text here." 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.