Enabled、EnterFieldBehavior、SelLength、SelStart、SelText 属性示例

下例跟踪与选择相关的属性（SelLength、SelStart 和 SelText 属性）。当用户用键盘移动插入点以及扩展选定时，这些属性发生变化。该示例还使用了 Enabled 和 EnterFieldBehavior 属性。

窗体包含：

• 名为 TextBox1 的一个大的文本框。
• 名为 TextBox2 到 TextBox4 的在一列中的三个文本框控件。

Sub UserForm_TextBox1_DblClick(Cancel)
    UserForm_TextBox2.Text = UserForm_TextBox1.SelStart
    UserForm_TextBox3.Text = UserForm_TextBox1.SelLength
    UserForm_TextBox4.Text = UserForm_TextBox1.SelText
End Sub

Sub UserForm_Initialize()
    UserForm_TextBox1.MultiLine = True
    UserForm_TextBox1.EnterFieldBehavior = 1
    
    UserForm_TextBox1.Text = "双击"
End Sub