通过

设置文本框中的行数和输入长度

  • 项目

以下示例使用 LineCount 和 TextLength 属性以及 SetFocus 方法对 TextBox 中的字符和文本行数进行计数。 在此示例中，用户可向 TextBox 中键入内容，还可以检索 LineCount 和 TextLength 属性的当前值。

注意

[!注释] SetFocus 方法是从 Microsoft Forms 2.0 TextBox 控件继承而来的。

若要使用本示例，请将此示例代码复制到窗体的"脚本编辑器"中。 若要运行本代码，需要打开该窗体，以便激活 Open 事件。 确保该窗体包含：

  • 一个名为"TextBox1"的 TextBox 。
  • CommandButton] (./../../api/Outlook.commandbutton.md) 名为 CommandButton1。
  • Two Label] (./../../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 支持和反馈，获取有关如何接收支持和提供反馈的指南。