Schreiben Sie weiter in eine zweite Zeile von richtextbox

Question

Ich habe eine Funktion, die ein int in seine tatsächlichen String-Wert konvertiert, und es funktioniert ständig, während ich die Nummer in ein Textfeld eingeben und die Funktion wandelt es in eine Richtextbox.

Das Problem ist, dass, wenn es konvertiert, ich möchte in eine neue Zeile in der Richtextbox schreiben, so dass es als zwei Zeilen auf einem Papier gedruckt werden kann.

Hier ist was ich versucht habe zu tun.

TextBox2.Text = "   " & NumberToText(AmountBox.Text) 
If TextBox2.Text.Length() > 60 Then 
    TextBox2.AppendText(Environment.NewLine) 
End If 

TextBox2 ist der Name meines richtextbox, und ich wählte 60, die die durchschnittliche Anzahl der Buchstaben i auf meiner ersten Linie wollen.

Wie kann ich es weiter machen die gleiche Zahl, aber in der zweiten Zeile?

Ich möchte die Ausgabe so etwas wie sein:

Vier Hunderte dreiundzwanzig Millionen Vier Hunderte Zwanzig -line1

Fünf Tausende Vier Hunderte Zwölf -line2

Jede Idee?

Answer 1

als Nummer so viele Rückkehrpunkte in Text Sie diese Zwischenfunktion

Public Function NumberToTextSplitted(texto As String) As String 
'Append this to what you are are already doing 
Dim rtn as strin = NumberToText(texto) 
Dim words As String() = rtn.Split(" ") 
Dim result As String = String.Empty 

For Each word As String In words 
    If line.Length + word.Length >= 59 Then 
     result &= Environment.NewLine 
    End If 

    result &= " " & word 
Next 

Return result 

End Function