SetFocus 方法、LineCount 和 TextLength 属性示例

下例用 LineCount 和 TextLength 属性及 SetFocus 方法统计文本框中文本的字符和行数。在该示例中，用户可在文本框中键入字符，并检索 LineCount 和 TextLength 属性的当前值。

窗体包含：

• 名为 TextBox1 的文本框。
• 名为 CommandButton1 的命令按钮。
• 名为 Label1 和 Label2 的两个标签控件。 '按 Shift + Enter 组合键，在文本框中另起一行。

Sub UserForm_CommandButton1_Click()
    '要得到行数，必须先将焦点
     '移到 TextBox1
    UserForm_TextBox1.SetFocus
    UserForm_Label1.Caption = "LineCount = " & UserForm_TextBox1.LineCount
    UserForm_Label2.Caption = "TextLength = " & UserForm_TextBox1.TextLength
End Sub

Sub UserForm_Initialize()
    UserForm_CommandButton1.WordWrap = True
    UserForm_CommandButton1.AutoSize = True
    UserForm_CommandButton1.Caption = "Get Counts"

    UserForm_Label1.Caption = "LineCount = "
    UserForm_Label2.Caption = "TextLength = "

    UserForm_TextBox1.MultiLine = True
    UserForm_TextBox1.WordWrap = True
    UserForm_TextBox1.Text = "Enter your text here."
End Sub