北京新视觉收藏骗局:如何显示所有内容

来源:百度文库 编辑:中科新闻网 时间:2024/05/12 05:42:24
Public Sub Command3_Click()
check$ = InputBox("请按照该格式输入(20XX-X-XX)")
Open "d:\" & Form2.Caption & check$ & ".txt" For Input As #1
input #1,b$
Text1.Text = b$
Close #1
End Sub
这段代码运行之后在文本框中始终只能显示一行文字,请问怎么修改才可以显示所有内容呢,有劳大家了。

将你的TEXTBOX控件的MultiLine属性设为True即可。