Question

我有一个将int转换为实际字符串值的函数，当我在文本框中键入数字并且函数将其转换为richtextbox时，它会不断工作。

问题在于，当它转换时，我想继续在richtextbox中的新行中写入，以便它可以在纸上打印成两行。

这是我试图做的事情。

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

TextBox2是我的richtextbox的名字，我选择了60，这是我在第一行上想要的平均字母数。

如何让它继续转换相同的数字，但在第二行呢？

我希望输出类似于：

四百二十三百万四百二十一-line1

五万四十二十二-line2

有什么想法吗？

Answer 1

作为数字，可以使用此中间函数

发送尽可能多的返回点

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

结束功能

继续写入richtextbox的第二行

1 个答案: