vb多行文本的问题

来源：百度知道 编辑：UC知道 时间：2024/06/24 05:51:53
怎样给text1.text=后面赋一大段文本
我复制一段话到text1.text=后面怎么办，要求很方便

vb换行：
text1.text= "1" & vbcrlf & "2"

vb长文本：
text1.text ="12345678" & _
"1235903"

写入外部文件，运行时导入，程序内最好不要放大段文字，或者使用资源文件,又或者直接在设计时输入text属性,要先把mulitline改为true
function ReadFile (File)
dim a,b
open file for input as #1
do while not eof(1)
line input #1,b
a=iif(a="","",a & vbcrlf) & b
loop
close
end function

如果要文本可以输入多行，则要设置以下属性（要在设计模式下调整属性，不能用代码）
text1.multiline=true
text1.scrollbars=一个数字（1代表有左右滚动，2代表有上下滚动，3代表有上下左右同时滚动）

Text1.text=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX_
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX_
XXXXXXXXXXXXXXXXXXXXXXXXXXX

用“_”链接多行表达式

Text1.MultiLine = True
Text1.ScrollBars = 3

遇到回车用chr(13)&chr(10)替换。