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

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

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

在属性栏里把multiLine选为 ture,就可以实现自动换行;
MultiLine 属性(应用于TextBox)
返回或设置一个值,该值指示 TextBox 控件是否能够接受和显示多行文本。在运行时是只读的。
语法
objectMultiLine
object 所在处代表一个对象表达式,其值是“应用于”列表中的一个对象。
设置值
MultiLine 属性设置值有:
设置值 描述
True 允许多行文本。
False (缺省值)忽略回车符并将数据限制在一行内。

文本框有个属性叫Multiline,你设置为true;
然后
Text1Text = "我" & vbCrLf & "爱" & vbCrLf & "你"

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

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

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


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12995167.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-29
下一篇 2023-05-29

发表评论

登录后才能评论

评论列表(0条)

保存