Compartir a través de

Ejemplo de propiedades Enabled, EnterFieldBehavior, SelLength, SelStart y SelText

  • Artículo

En el ejemplo siguiente se realizan un seguimiento de las propiedades relacionadas con la selección (SelLength, SelStart y SelText) que cambian a medida que el usuario mueve el punto de inserción y extiende la selección mediante el teclado.

En este ejemplo también se usan las propiedades Enabled y EnterFieldBehavior .

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

  • Un cuadro de texto grande denominado TextBox1.
  • Tres controles TextBox en una columna denominada TextBox2 hasta TextBox4.
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

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.