Question

VB中文本框换行--------急!!!

我看了其他的文本框换行的问题，都不是我这种，以前我也用过，但是忘了。
我的问题就是
有一个text1的文本框
有check1、check2 复选框
其中check1.caption="您好" check2.caption="谢谢"
我想 单击check1后text1中显示出 您好
单击check2 后 文本框就换行显示 如:
您好
谢谢
------------------------------------
那位高手能给我解答下呀!小弟在这里谢谢了!!!
不，我这里是简写了的。还有很多选项呢！ 你们写详细点吧。！ 我现在头都大了，你们这些方法我都试了，不行，没有达到我想要的效果！
点一个check 后 就换行显示下一个check！！

Answer 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

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

Answer 2

我给个比较笨的一种头绪吧，单机check（准确说应该是选择）后，send
***，相当于按了一下回车。这个是可行的。

Answer 3

这个问题有两点要注意的：
1、在设计界面的时候，选中文本框，在属性窗口中找到“多行性”（MultiLine）设置为“真”（True）
2、在代码编写里面，使用换行符（vbcrlf）。同时提醒你一个，就是可能这两个check选中没有先后（这点要考虑到）
代码如下：
Private Sub Check1_Click()
If Text1 <> "" Then Text1 = Text1 & vbCrLf '另一个已经选中了，就加换行符
Text1 = Text1 & Check1.Caption
Check1.Enabled = False '已经选过，就不能再选
End Sub

Private Sub Check2_Click()
If Text1 = "" Then Text1 = Text1 & vbCrLf
Text1 = Text1 & Check2.Caption
Check2.Enabled = False
End Sub

Private Sub Form_Load()
Text1 = ""
Check1.Caption = "你好"
Check2.Caption = "谢谢"
End Sub

Answer 4

首先text1的属性得设置成多行显示。如果需要滚动条，设置ScrollBars。其他看楼上的就好

Answer 5

前提是你要把文本框的MultiLine 属性设置为 True，例如：
Text1.MultiLine = True

Private Sub Check1_Click()
Text1.Text = Check1.Caption
End Sub

Private Sub Check2_Click()
Text1.Text = Text1.Text & vbCrLf & Check2.Caption
End Sub

vbCrLf是vb中的换行代码

例如：在文本中显示：

你好
谢谢

代码是：text1.text="你好" & "谢谢"