我的文本框的回车键怎么不换行啊

Question

程序如下For n = 0 To (X1 - 1)
        If inp(n) = Chr(13) & Chr(10) Then
            nump(pp) = n: pp = pp + 1
        End If
    Next n
    ww = 1
    '以空格为标准，将程序中的字分离出来
    For n = 0 To pp - 2
        For m = (nump(n) + 1) To nump(n + 1)
            Y(ww) = Y(ww) & inp(m)
        Next m
        ww = ww + 1
    Next n
    'ff = ww - 1
    '记录程序中每个字的长度
    For n = 1 To (ww - 1)
        bb$ = bb$ & Y(n)
    Next n
 Text1.Text = bb$

Answer 1

检查text1的Multiline属性,改为true

Answer 2

text有个属性，可以把文本框设未多行

Answer 3

没看懂你的代码
将textbox的MultiLine设为true
每一行文本后边加上vbcrlf
这些就够了,如果还不行你要检查别的地方了

Answer 4

以空格为标准，将字符串分离，直接使用split函数是最佳的。

Answer 5

示例：
dim i as long
dim str as string
dim strsplit
str ="It was likely, for no one seemed to know the world more familiarly"
strsplit = split(str)for i = lbound(strsplit) to ubound(strsplit)
   msgbox strsplit(i)
next i

Answer 6

将textbox的MultiLine设为true