Skip to content

Latest commit

 

History

History
92 lines (67 loc) · 2.91 KB

textbox-control-setfocus-method-enterfieldbehavior-hideselection-multiline-value.md

File metadata and controls

92 lines (67 loc) · 2.91 KB
Raw
title keywords f1_keywords ms.assetid ms.date ms.localizationpriority
TextBox control, SetFocus method, EnterFieldBehavior, HideSelection, MultiLine, Value properties example
fm20.chm5225188
fm20.chm5225188
144cad11-7ddb-0f46-96fe-8b4da3f665e4
11/14/2018
medium

TextBox control, SetFocus method, EnterFieldBehavior, HideSelection, MultiLine, Value properties example

The following example demonstrates the HideSelection property in the context of either a single form or more than one form.

The user can select text in a TextBox and tab to other controls on a form, as well as transfer the focus to a second form. This code sample also uses the SetFocus method, and the EnterFieldBehavior, MultiLine, and Value properties.

To use this example, follow these steps:

  1. Copy this sample code (except for the last event subroutine) to the Declarations portion of a form.

  2. Add a large TextBox named TextBox1, a ToggleButton named ToggleButton1, and a CommandButton named CommandButton1.

  3. Insert a second form into this project named UserForm2.

  4. Paste the last event subroutine of this listing into the Declarations section of UserForm2.

  5. In this form, add a CommandButton named CommandButton1.

  6. Run UserForm1.

' ***** Code for UserForm1 ***** 
Private Sub CommandButton1_Click() 
 TextBox1.SetFocus 
 UserForm2.Show 'Bring up the second form. 
End Sub
Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 TextBox1.HideSelection = False 
 ToggleButton1.Caption = "Selection Visible" 
 Else 
 TextBox1.HideSelection = True 
 ToggleButton1.Caption = "Selection Hidden" 
 End If 
End Sub
Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 TextBox1.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection 
 
'Fill the TextBox 
 TextBox1.Text = "SelText indicates the starting " _ 
 & "point of selected text, or the insertion " _ 
 & point if no text is selected." & Chr$(10) _ 
 & Chr$(13) & "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. " _ 
 & Chr$(10) & Chr$(13) & "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." 
 
 TextBox1.HideSelection = True 
 ToggleButton1.Caption = "Selection Hidden" 
 ToggleButton1.Value = False 

End Sub
'
' ***** Code for UserForm2 *****

Private Sub CommandButton1_Click() 
 UserForm2.Hide 
End Sub

[!includeSupport and feedback]