vb 怎样实现换行

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)) 以分隔各行。

你是觉得哪里不正常了？按你的代码输出就是这样的。
Text1Text = "1 2 3 5 7" 首先输出的第一行应该是1 2 3 5 7
For i = 10 To 100
If i Mod 5 = 0 Then 这里的作用是i逢5倍数就换一次行
Text1Text = Text1Text & Chr(13) & vbCrLf 这里chr（13）可以不要，重复了
End If

If ((i Mod 2 <> 0) And (i Mod 3 <> 0) And (i Mod 5 <> 0) And (i Mod 7 <> 0)) Then
Text1Text = Text1Text & Str(i) & " " ’这里是凡是不能被2357整除的数就显示出来
End If 注意这里没有使用换行，所以 11 13 会在同一行
Next i
所以程序的大致功能就是
第1行 显示 12357
第2行显示 11-15之间不能被2357整除的数
第3行显示 16-20之间不能被2357整除的数
第4行显示 21-25之间不能被2357整除的数
第5行显示 26-30之间不能被2357整除的数
。。。。。。。。。。。。
输出结果中89和97之间有个空格是因为91-95之间没有符合条件的数但经历了两次换行所造成

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

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、打开VB60，新建一个工程，在窗体中添加五个命令按钮，caption分别改为“回车”、“换行”、“回车换行”、“换行回车”以及“VBCrlf”。

添加一个文本框，将其Text属性清空，MultiLine属性设置为True，Scrollbars属性设置为2-Vertical，将窗体Form1的caption属性改为“回车符和换行符的区别”，将界面设置成下图：

2、双击“回车”命令按钮，进入代码编辑窗口，输入如下代码：Text1Text = 1 & Chr(13) & 2，如图：

3、双击“换行”命令按钮，进入代码编辑窗口，输入如下代码：Text1Text = 1 & Chr(10) & 2，如图：

4、双击“回车换行”命令按钮，进入代码编辑窗口，输入如下代码：Text1Text = 1 & Chr(13) & Chr(10) & 2，如图：

5、双击“换行回车”命令按钮，进入代码编辑窗口，输入如下代码：Text1Text = 1 & Chr(10) + Chr(13) & 2，如图：

6、双击“vbCrlf”命令按钮，进入代码编辑窗口，输入如下代码：Text1Text = 1 & vbCrLf & 2，如图：

7、关闭代码窗口，按下F5运行程序，依次单击““回车”、“换行”、“回车换行”、“换行回车”以及“VBCrlf”命令按钮，在窗体中依次输出，如图：

Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言
VbCrlf输出换行，书写代码断行 空格+_。
print “a”，vbcrlf，“b”; _
"c"
结果：
a
bc

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

---