Compartir a través de

Ejemplo de control TextBox, método SetFocus y propiedades EnterFieldBehavior, HideSelection, MultiLine y Value

  • Artículo

En el ejemplo siguiente se muestra la propiedad HideSelection en el contexto de un solo formulario o de más de un formulario.

El usuario puede seleccionar texto en un TextBox y pestaña a otros controles de un formulario, así como transferir el foco a un segundo formulario. Este ejemplo de código también usa el método SetFocus y las propiedades EnterFieldBehavior, MultiLine y Value .

Para usar este ejemplo, siga estos pasos:

  1. Copie este código muestra (excepto en la última subrutina de eventos) a la parte de Declaraciones del formulario.

  2. Agregue un cuadro de texto grande denominado TextBox1, un ToggleButton denominado ToggleButton1 y un CommandButton denominado CommandButton1.

  3. Inserte un segundo formulario en este proyecto con el nombre FormularioDeUsuario2.

  4. Pegue la última subrutina de eventos de esta lista en la sección Declaraciones de FormularioDeUsuario2.

  5. En este formulario, agregue un botón de comando con el nombre BotónDeComando1.

  6. Ejecute el FormularioDeUsuario1.

' ***** 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.