¿Cómo escribir un programa en VB para que el contenido del cuadro de texto tenga espacios al principio de cada línea?
Repite la pregunta. El salto de línea en el cuadro de texto de VB es de dos caracteres chr(13) y chr(10). La programación lee cada uno de los caracteres hasta que hay un salto de línea. el número al final. El número de espacios está bien.
He depurado el siguiente programa (un cuadro de texto y un botón de comando se colocan en el formulario):
Private Sub Command1_Click()
Dim CR As Cadena, Strout como cadena, Tmp como cadena, I como largo
Tmp = Text1.Text
Si Len(Tmp) < 2, entonces salga de Sub
Strout = Espacio(2)
CR = Chr(13) & Chr(10)
Hacer mientras Len(Tmp) <> 0
I = InStr( Tmp, CR)
Si I <> 0 entonces
Strout = Strout & Left(Tmp, I + 1) & Space(2)
Tmp = Mid(Tmp, I + 2)
Else
Salir Do
End If
Bucle
Strout = Strout & Tmp
Texto1 = Strout
End Sub