vb用input读取文件,挨着字符读取,写入到text1.text,可是结果显示不出换行
能读取回车,但是在text框中却不换行,老师讲的时候我记得我做了一下,还可以显示出致橡树的格式呢,现在要考试了,做了一下发现不行了,都在一行显示,不换行,帮我T.TPri...
能读取回车,但是在text框中却不换行,老师讲的时候我记得我做了一下 ,还可以显示出致橡树的格式呢,现在要考试了,做了一下发现不行了,都在一行显示,不换行,帮我 T.T
Private Sub Command1_Click()
Dim s$
Open "c:\text.txt" For Input As #1
Do
s = Input(1, #1)
Text1.Text = Text1.Text & s
Loop Until EOF(1)
close #1
End Sub 展开
Private Sub Command1_Click()
Dim s$
Open "c:\text.txt" For Input As #1
Do
s = Input(1, #1)
Text1.Text = Text1.Text & s
Loop Until EOF(1)
close #1
End Sub 展开
4个回答
展开全部
text1.text=Text1.Text & s & vbCrLf
VBCRLF是换行符号、、、、、、、不弄不行的
VBCRLF是换行符号、、、、、、、不弄不行的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你要把 Text1 的 Multiline 属性 设为 True
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
text框需要设置多行属性为真。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
multiline 设为 true
text1.text=text1.text & s & vbcrlf
text1.text=text1.text & s & vbcrlf
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询