Question

VB中vbcrlf 这样使用为什么没办法换行

Private Sub Command1_Click()
Dim i%, xh$, xm$
Open App.Path & "\" & "y26.txt" For Output As #1
For i = 1 To 5
xh = InputBox("请输入学号")
xm = InputBox("请输入姓名")
Write #1, xh, xm
Next i
Close #1

End Sub
Private Sub Command2_Click()
Dim s
Open App.Path & "\" & "y26.txt" For Input As #2
Do While Not EOF(2)
Line Input #2, s
Text1.Text = Text1.Text & s & vbCrLf
Loop
Close #2
End Sub

Answer 1

文本框有一个MultiLine属性,其值为true时才可以多行显示其中的内容，
但在默认情况下其值是false，所以不管其中的内容有没有回车字符，
它是不会换行的。

把Text1的这个属性值更改为TRUE即可。

Answer 2

将text1 的 MultiLine属性设为 True 就行了

Answer 3

是不是MultiLine不为True