VB中在文本框中显示文字怎么样才可以换行啊

把文本框的MultiLine属性设为True就可以换行了。
如果你想用代码在文本框中显示多行文字，可以把字符串和vbCrLf连起来。比如Text1Text
=
"abc"
&
vbCrLf
&
"123"，这样abc和123就会显示成2行了。

VB换行：

代码过长换行使用一个空格加一个下划字符 ( _)。

如果一句代码太长，无法在一行内写下（不包括注释），则可以在下一行继续，在行的末尾用续行字符表示一行尚未结束，续行字符是一个空格加一个下划字符 ( _)：

Sub Form_MouseDown (Button As Integer, _
Shift As Integer, X As Single, Y As Single)

文本框显示多行文本。

通过设置 MultiLine 和 ScrollBars 两种属性（只能在设计程序时设置），可以改变 TextBox 的外观和行为。

把 MultiLine 属性设为 True，可以使 TextBox 在运行时接受或显示多行文本。只要没有水平方向 ScrollBar，多行 TextBox
中的文本会自动按字换行。ScrollBars 属性的缺省值被设置为 0（None）。自动按字换行省去用户在行尾插入换行符的麻烦。当一行文本已超过所能显示的长度时，TextBox 自动将文本折回到下一行显示。

在设计时，不能在“属性”窗口输入换行符。在过程中，可以通过插入一个回车加上换行符（ANSI 字符 13 和 0）来产生一个行断点。也可以用常量 vbCrLf 插入一个回车与换行符组合。

下面的事件过程是在加载窗体时，把两行文本放入一个多行 TextBox (Text1) 中的示例。

Sub Form_Load ()
  Text1Text = "Here are two lines" _
  & vbCrLf & "in a text box"
End Sub

数值 10 和 13 可以分别转换为换行符和回车符。这些字符都没有图形表示，但是对于不同的应用程序，这些字符可能会影响文本的显示效果。

字符串表达式，作为消息显示在对话框中。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符(Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13)& Chr(10)) 以分隔各行。

我本来是第一个回答的，为了把第二，三个问题也解决，修改答案后就成最下边一个了

1--------------------------------------------------------------

把Text4的MultiLine属性设置成True

复制下边的代码：

Private Sub Form_Load()

Text4Text = ""

End Sub

Private Sub Command1_Click()

Text4Text = Text4Text + Text1Text + Text2Text + Text3Text + vbCrLf

End Sub

'下边是为了保障Text4的焦点处于最后，试着去掉下边这三行，观察一下效果，你会发现这三行也很重要

Private Sub Text4_Change()

Text4SelStart = Len(Text4Text)

End Sub

2--------------------------------------------------------------

如果是用List也可以，下边就是双击复制该表项内容

Private Sub List1_DblClick()

ClipboardClear

ClipboardSetText List1List(List1ListIndex)

MsgBox "该项内容已经复制到剪贴板，请用Ctrl+V粘贴"

End Sub

3--------------------------------------------------------------

richtextbox比textbox好用，比如richtextbox还能每行字体颜色不同，显示等，不过你这里用不着它的这些复杂用法

首先点“工程”，“部件”，找到“Microsoft Rich textbox Contral 60”勾上，点“确定”，然后就可以在工具那里看到它了，在窗体上画RichTextBox1

RichTextBox1 就不用设置MultiLine了，代码的写法和用Text4差不多

复制下边的代码：

Private Sub Form_Load()

RichTextBox1 = ""

End Sub

Private Sub Command1_Click()

RichTextBox1Text = RichTextBox1Text + Text1Text + Text2Text + Text3Text + vbCrLf

End Sub

Private Sub RichTextBox1_Change()

RichTextBox1SelStart = Len(RichTextBox1Text)  '保障RichTextBox1的焦点处于最后

End Sub

上边的代码我都测试过了，完全直接可用！！ 看！

我本来是第一个回答的，为了把第二，三个问题也解决，修改答案后就成最下边一个了

1--------------------------------------------------------------

把Text4的MultiLine属性设置成True

复制下边的代码：

Private Sub Form_Load()

Text4Text = ""

End Sub

Private Sub Command1_Click()

Text4Text = Text4Text + Text1Text + Text2Text + Text3Text + vbCrLf

End Sub

'下边是为了保障Text4的焦点处于最后，试着去掉下边这三行，观察一下效果，你会发现这三行也很重要

Private Sub Text4_Change()

Text4SelStart = Len(Text4Text)

End Sub

2--------------------------------------------------------------

如果是用List也可以，下边就是双击复制该表项内容

Private Sub List1_DblClick()

ClipboardClear

ClipboardSetText List1List(List1ListIndex)

MsgBox "该项内容已经复制到剪贴板，请用Ctrl+V粘贴"

End Sub

3--------------------------------------------------------------

richtextbox比textbox好用，比如richtextbox还能每行字体颜色不同，显示等，不过你这里用不着它的这些复杂用法

首先点“工程”，“部件”，找到“Microsoft Rich textbox Contral 60”勾上，点“确定”，然后就可以在工具那里看到它了，在窗体上画RichTextBox1

RichTextBox1 就不用设置MultiLine了，代码的写法和用Text4差不多

复制下边的代码：

Private Sub Form_Load()

RichTextBox1 = ""

End Sub

Private Sub Command1_Click()

RichTextBox1Text = RichTextBox1Text + Text1Text + Text2Text + Text3Text + vbCrLf

End Sub

Private Sub RichTextBox1_Change()

RichTextBox1SelStart = Len(RichTextBox1Text)  '保障RichTextBox1的焦点处于最后

End Sub

上边的代码我都测试过了，完全直接可用！！ 看！

VB的换行符为“vbcrlf”，所以你只需要Text1Text = "再见" & vbcrlf & "我还没学好如何自动关闭按ALT+F4退出吧\\"即可。

如果你要把一个控件设为不可用，你可以在代码中加以控制。ButtonEnable = False（不但无法使用，而且鼠标也无法点上去）；ButtonReadOnly = True(无法使用，但鼠标能点上去，可以获取焦点)；ButtonVisible = False(不显示)

在设计的时候，先把Text5 的MultiLine属性设置成 True，然后才能在text5中写入分行的文本。这个属性不能在程序中设置与更改。 （在设计界面，点一下 text5，在右下角的属性，找到 MultiLine 将后面的 False 改为 True，即可。）
设置好之后，再用这个换行，就行了。
Text5Text = ("The number" & Chr(13) + Chr(10) & "12536")

---