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

我看了其他的文本框换行的问题,都不是我这种,以前我也用过,但是忘了。我的问题就是有一个text1的文本框有check1、check2复选框其中check1.caption... 我看了其他的文本框换行的问题,都不是我这种,以前我也用过,但是忘了。
我的问题就是
有一个text1的文本框
有check1、check2 复选框
其中check1.caption="您好" check2.caption="谢谢"
我想 单击check1后text1中显示出 您好
单击check2 后 文本框就换行显示 如:
您好
谢谢
------------------------------------
那位高手能给我解答下呀!小弟在这里谢谢了!!!
不,我这里是简写了的。还有很多选项呢! 你们写详细点吧。! 我现在头都大了,你们这些方法我都试了,不行,没有达到我想要的效果!
点一个check 后 就换行显示下一个check!!
展开
 我来答
miniappTuhi8aA7Zu4Lo
2010-05-11 · TA获得超过189个赞
知道小有建树答主
回答量:166
采纳率:0%
帮助的人:158万
展开全部

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

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

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

佟珍宛紫安
2019-05-01 · TA获得超过3891个赞
知道大有可为答主
回答量:3092
采纳率:30%
帮助的人:213万
展开全部
我给个比较笨的一种头绪吧,单机check(准确说应该是选择)后,send
***,相当于按了一下回车。这个是可行的。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
尘入蜓孟影食1038
2010-05-10 · TA获得超过3512个赞
知道大有可为答主
回答量:2307
采纳率:87%
帮助的人:1348万
展开全部
这个问题有两点要注意的:
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
warmice5255
2010-05-10 · TA获得超过137个赞
知道小有建树答主
回答量:123
采纳率:83%
帮助的人:82.2万
展开全部
首先text1的属性得设置成多行显示。如果需要滚动条,设置ScrollBars。其他看楼上的就好
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
296224229
2010-05-10 · TA获得超过273个赞
知道小有建树答主
回答量:214
采纳率:0%
帮助的人:0
展开全部
前提是你要把文本框的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="你好" & "谢谢"
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(7)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式