如何在vb文本框中换行

2024-12-03 07:10:39

推荐回答（3个）

回答（1）：

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

1.--------------------------------------------------------------

把Text4的MultiLine属性设置成True

复制下边的代码：

Private Sub Form_Load()

Text4.Text = ""

End Sub

Private Sub Command1_Click()

Text4.Text = Text4.Text + Text1.Text + Text2.Text + Text3.Text + vbCrLf

End Sub

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

Private Sub Text4_Change()

Text4.SelStart = Len(Text4.Text)

End Sub

2.--------------------------------------------------------------

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

Private Sub List1_DblClick()

Clipboard.Clear

Clipboard.SetText List1.List(List1.ListIndex)

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

End Sub

3.--------------------------------------------------------------

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

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

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

复制下边的代码：

Private Sub Form_Load()

RichTextBox1 = ""

End Sub

Private Sub Command1_Click()

RichTextBox1.Text = RichTextBox1.Text + Text1.Text + Text2.Text + Text3.Text + vbCrLf

End Sub

Private Sub RichTextBox1_Change()

RichTextBox1.SelStart = Len(RichTextBox1.Text) '保障RichTextBox1的焦点处于最后

End Sub

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

回答（2）：

chr(13)和chr(10)在ascii表中属于控制符.在控制打印机实现换行时有两个动作,1.打印头要"回车"
2.打印纸要移动,"换行."
所以,Chr(13)
和
Chr(10)一起才能完成看似简单的换行.

回答（3）：

字符串连接回车换行符：
str1 & vbCrLf
文本框需要支持多行，属性MultiLine =true