文本框控件、SetFocus 方法、EnterFieldBehavior、HideSelection、 MultiLine 和 Value 属性示例

下例在一个窗体或多个窗体的上下文中演示 HideSelection 属性。用户可以在文本框中选定文本，并按 Tab 到达窗体上的其他控件，并且把焦点转移到第二个窗体。这个代码示例还使用了 SetFocus 方法及 EnterFieldBehavior、MultiLine 和 Value 属性。

若要使用该示例，请执行如下操作步骤：

• 把示例代码（最后事件子程序除外）复制到窗体的声明变量部分。
• 添加名为 TextBox1 的大文本框，名为 ToggleButton1 的切换按钮和名为 CommandButton1 的命令按钮。
• 将名为 UserForm2 的第二个窗体插入此工程。
• 把此列表最后的事件子程序粘贴到 UserForm2 的声明变量部分。
• 在此窗体中，加入名为 CommandButton1 的命令按钮。

运行 UserForm1。

Sub UserForm_CommandButton1_Click()
    UserForm_TextBox1.SetFocus
    UserForm32.Show    '显示第二个窗体
End Sub
Sub UserForm_ToggleButton1_Click()
    If UserForm_ToggleButton1.Value = True Then
        UserForm_TextBox1.HideSelection = False
        UserForm_ToggleButton1.Caption = "Selection Visible"
    Else
        UserForm_TextBox1.HideSelection = True
        UserForm_ToggleButton1.Caption = "Selection Hidden"
    End If
End Sub
Sub UserForm_Initialize()
    UserForm_TextBox1.MultiLine = True
    UserForm_TextBox1.EnterFieldBehavior = 1
    
'填充文本框
    UserForm_TextBox1.Text = "SelText indicates the starting " _ 
        & "point of selected text, or the insertion" _ 
        & "point if no text is selected." _ 
        & "The SelStart property is" _ 
        & "always valid, even when the control does" _ 
        & "not have focus. Setting SelStart to a" _ 
        & "value less than zero creates an error. " _
        & "Changing the value" _ 
        & "of SelStart cancels any existing" _ 
        & "selection in the control, places" _ 
        & "an insertion point in the text, and sets " _ 
        & "the SelLength property to zero." 

    UserForm_TextBox1.HideSelection = True
    UserForm_ToggleButton1.Caption = "Selection Hidden"
    UserForm_ToggleButton1.Value = False

End Sub

' ***** UserForm2 的代码 *****
Sub UserForm2_CommandButton1_Click()
    UserForm2.Hide
End Sub