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

以下示例跟踪与选择相关的属性 (SelLength、 SelStart 和 SelText) 当用户移动插入点并使用键盘扩展所选内容时发生更改。

此示例还使用 Enabled 和 EnterFieldBehavior 属性。

若要使用此示例，请将此示例代码复制到窗体的 Declarations 部分。 确保该窗体包含：

• 名为 TextBox1 的大型 TextBox 。
• 列中名为 TextBox2 到 TextBox4 的三个 TextBox 控件。

Private Sub TextBox1_KeyUp(ByVal KeyCode As _ 
 MSForms.ReturnInteger, ByVal Shift As Integer) 
 TextBox2.Text = TextBox1.SelStart 
 TextBox3.Text = TextBox1.SelLength 
 TextBox4.Text = TextBox1.SelText 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 TextBox1.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorRecallSelection 
 
 TextBox1.Text = "Type your text here. Use " _ 
 & "CTRL+ENTER to start a new line." 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。