智利甲规则:如何显示所有内容

来源:百度文库 编辑:神马品牌网 时间:2024/05/06 00:31:33
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即可。