Ejemplo de método SetFocus y propiedades LineCount y TextLength

En el ejemplo siguiente se cuentan los caracteres y el número de líneas de texto de un TextBox mediante las propiedades LineCount y TextLength , y el método SetFocus .

En este ejemplo, el usuario puede escribir en un TextBox y recuperar los valores actuales de las propiedades LineCount y TextLength.

Para usar este ejemplo, copie esta muestra de código en la parte de las declaraciones de un formulario. Asegúrese de que el formulario contiene los controles siguientes:

• Un control TextBox denominado TextBox1.
• Un control CommandButton denominado CommandButton1.
• Dos controles Label denominados Label1 y Label2.

'Type SHIFT+ENTER to start a new line in the text box. 
 
Private Sub CommandButton1_Click() 
 'Must first give TextBox1 the focus to get line 
 'count 
 TextBox1.SetFocus 
 Label1.Caption = "LineCount = " _ 
 & TextBox1.LineCount 
 Label2.Caption = "TextLength = " _ 
 & TextBox1.TextLength 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton1.WordWrap = True 
 CommandButton1.AutoSize = True 
 CommandButton1.Caption = "Get Counts" 
 
 Label1.Caption = "LineCount = " 
 Label2.Caption = "TextLength = " 
 
 TextBox1.MultiLine = True 
 TextBox1.WordWrap = True 
 TextBox1.Text = "Enter your text here." 
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.