炫酷游戏名字符号:如何显示所有内容

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/04 15:00:35
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即可。